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NUMERI, 

NON 

PAROLE. 


ATAfu 130 XE t ur grande personal computo che, ad una enorme capacità di memoria, abbina una maggiore 
versatilità Atari 130XE non ha bisogno di molte parole per essere presentato, i suoi numeri partano da sdi 


128K RAM 

ATAJ8 13QXE utilizza un microprocessore 6502C. 

Ha una memona di 1 28K RAM, 24K ROM (Sistema ope- 
rativo e linguaggio programmazione Basic). Tanta poten- 
za in più per un maggior numero di informazioni, 

4 CHIPS SPECIALI 

Sono Chips esclusivi Atari : GDA - Per la visualizzazione 
fatica; POKEY - Generatore e controllo di suono, AN- 
TIC- Per la gestione dello schermo c di Input /Output; 
FREOOY - Sistema di controllo delta memoria. 

256 COLORI 

ATAM 130XE ha capaciti grafiche nettamente superiori 
alta media: 11 tipi di modi grafici; 256 colon 028 
visualizzati contemporaneamente); grafica 320 x 192 
ad alta nsduzione; 

txia visualizzazione di 40 colonne per 24 linee; 5 modi 
di testo Tutto quanto ti serve per scatenare ai meglio 


la tua creatività, senza limiti di alcun tipo. 

4 CANAU SONORI 

Anche per le capacità sonore, Alari 130XE rivela 
straordinarie e inaspettate possibilità: 4 cardi sonori 
ìndipendenti su una gamma di 3 ottave e mezza. 

62 TASTI 

Una tastiera formidabile: 62 tasti, tasto Help e quattro 
tasti per funzioni speciali; caratteri intemazionali; 29 
tasti con funzione grafica. Linguaggio di programma- 
zione Atari Basic incorporato 

41 CONFIGURAZIONI POSSIBILI 

Soffiare e periferiche compatibili con i computer 
della serie XL: Stampante a colori Atari 1020; 
stampante "Letto Qualìty* Atari 1027; Stampante ad 
aghi programmabile Alan 1029; Disk drive Alari 1050 
(E possibile l'utilizzo dì 4 unità in serie); Joystick e 
Super Controller. 
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L’IMPORTANTE è NON 

ESAGERARE 

di Pietro Doli 'Orco 



&WRITE 


30 


ASTROPANIC 
PER VIC 20 
di S.D. Wagl« 


trad. * adatt. 


di CrUtmlb Grìtzi 


LA POSTA DEI LETTOSI 


OPEN 


IL <pro«l-o) FUTURO 
DEI SISTEMI 
PERIFERICI 
dì Ma CrUtmlb Grizxi 




ABC DEL LINGUAGGIO 
MACCHINA 
Parte tersa 
di ILO* Se rughi 


26 REM: HW 


SCU N PICCOLO 
JD DATABASE 
dì R*D, Gunn 

trad. è a dati, 

di Ma CrUtnlb Grltri 


« FORRIDDEN CSYPT 
di T. Reyeolde 
trad. e adatt. 
di Sa Alberelli 
M. Antlcoll e 
M. Crfetnlb Orlasi 


Pf COLOR SWAF 
9 Adi Noe! 

trad. e adatta 

di Ma Crletnlb Glissi 


61 


SUPERGRAPH1C 
PER C64 
di G. Kiziak 


trad. e adatL 


di Sa Alberesi e 
M. Aliticeli 


68 


CAVERNE SPAZIALI 
di V. ValanCT 


trad. e adatt. 

di M. CrUtmlb Grlul 
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LA NOTA MISTERIOSA 

dJ C. Eetevee 

trad. e adatt. 

dì Ma CrUtmlb Orini, 

Sa Alberelli a 
M, Antico)! 


78 R JMP- 


RECENSIONI LIBRI 
dì M. CrUtmlb Grlul 


LE POSSIBILITÀ DI 
COMUNICAZIONE CON 
L’ESTERNO DEI 
COMPUTER 
COMMODORE 
di Ma CrUtmlb Orlasi 


C JTCYPHER 
elOdi iXa Calvin 

trad. e adatt. 

di Ma CrUtmlb Orlasi 



l nput' output , 


PICCOLI ANNUNCI 
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IMPARIAMO 

A PROGRAMMARE 

H libro fornisce le conoscenze essen- 
ziali per tncortinoterv i proQramrnars 
in BASIC su di un persona* com- 


cu imm *** umim 


PRIMI PASSI 
IN BASIC 


MUIULA Ut UPfmmH 


Jùdy Tttche# - m Beano 

CONOSCERE 
IL PERSONAL 

Il Who spiega che cote li può fui 
con un personal computer, coma ti 
usa e comi funziona. 
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WV Raccordo, c’è la passione, c’è la voglia di fare e imparare sempre 
mJ cose nuove, ma se la cosa diventa un fatto “patologico”, questo non 
va bene. Di giorno ci sono le attività a cui ciascuno di noi deve necessaria- 
mente sottendere, la notte, salvo eccezioni (leggi guardiani notturni), è 
necessario dormire. 

Dunque, il tempo da dedicare al computer -dev'essere recuperato dal 
cosiddetto “tempo libero” che, per quanto sopra, subentra la costrizione 
di dover operare sul calcolatore solo per brevi periodi di tempo, che a 
volte condizionano La riuscita di quanto si desidera fare. 

Quando si pone questa condizione gli utenti solitamente $1 trasformano in 
una sorta di “zombies", che passano ogni ora disponibile (comprese quelle 
notturne) appiccicati alla tastiera, cercando di far digerire alla macchina 
quanti più byte possono. 

Se questo modo di agire diviene prassi ricorrente, le implicazioni sono 
quasi sempre poco piacevoli. Bocciature, liti furibonde con il coniuge, 
insonnia cronica e via dicendo. 

La sostanza di tutto il discorso si riassume in un sol motto: non esagerare) 
Senza contare poi che, di solito, quando ci si accanisce con un programma 
che non vuole girare a dovere, è molto difficile porvi rimedio se la mente 
non è riposata. 

L’importante è non lasciarsi coinvolgere al punto da trasformare il compu* 
ter nell’unico Interesse della propria vita, dedicandogli pertanto tutte le 
risorse di tempo e di energia di cui l’individuo dispone. 

Il consiglio dunque è uno solo; misura e moderazione che, oltre ad evitare 
spiacevoli Inconvenienti, faranno maggiormente apprezzare il tempo, an- 
che se poco, speso sulla tastiera del computer a dare legittimo sfogo alla 
propria passione. 

Pietro Dell 'Orco 
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Per collaborare a SUPERCOMMODORE 


La rivista è interessata ad articoli e programmi riguardanti la linea Commodore, di interesse 
generale, chiari ed esaurienti. Vi proponiamo una piccola “guida”, che ha particolarmente lo 
scopo di rendere più accurata la stesura dei vostri manoscritti: seguendo i nostri consigli si 
accresceranno le probabilità che le vostre buone idee e i vostri programmi vengano pubblicati. 


1 l’angolo superiore sinistro della prima pagina 
dovrà contenere: nome, cognome, indirizzo, 
numero telefonico, codice fiscale, data di spedi- 
zione, luogo e data di nascita. 

l'angolo superiore destro della prima pagina 
dovrà contenere la marca e il tipo di compu- 
ter al quale II lavoro si riferisce, unitamente ad 
eventuali espansioni di memoria o periferiche ri- 
chieste. 

3 11 titolo dell'articolo, sottolineato, dovrà ini- 
ziare a circa due terzi in altezza della prima 
pagina. 

le pagine seguenti potranno essere battute 
normalmente, con la condizione che l’angolo 
superiore destro contenga un'abbreviazione del 
titolo e del cognome, unitamente al numero di 
pagina. Per esemplo, Sprite Ed... /Brambilla /2. 
il testo dell'articolo dovrà essere battuto a 
macchina con interlinea di uno spazio e mez- 
zo, massimo due spazi; un margine di almeno un 
centimetro dovrà essere lasciato su entrambi i 
lati dello scritto. 

dovranno essere usati fogli in formato UNI 
A4 (cm. 21 x 29,7) e U testo, scritto In carat- 
teri maiuscoli e minuscoli, dovrà occupare una 
sola facciata del foglio. 

7 nel caso il testo comprenda più fogli, questi 
dovranno essere uniti con un fermaglio o con 
un punto metallico aperto. 

8 avendo intenzione di spedire più di un artico- 
lo, questi dovranno essere Inviati separata- 
mente Insieme alla rispettiva copia su supporto 
magnetico. 

9 programmi brevi (meno di 20 linee) potranno 
essere Inseriti nel testo, mentre programmi 
più lunghi dovranno essere listati separatamente. 
E ESSENZIALE per noi disporre di una copia 
de) programma registrata più volte su sqpporto 
magnetico, su entrambi i lati dello stesso. E prefe- 
ribile usare nastri di buona qualità e di lunghezza 
non eccessiva; la cassetta o il disco dovranno 
essere etichettati con Li nome dell’autore, il titolo 
delTarttcolo, il computer interessato e soprat- 
tutto le eventuali espansioni richieste. Come sug- 


gerimenti di programmazione si consiglia di usa- 
re Je istruzioni “CHR$( x )”, “TAB( x )", SPQ x 
)”, piuttosto che stringhe di manipolazione del 
cursore. 

Ad esempio, per uno scroti di 5 linee l’istruzione 
“FORI - 1T05:PRINT:NEXT. è molto più In- 
terpretabile di 5 Q inverse; e, Invece di una dozzi- 
na di simboli di cursore a destra, perché non 
usare semplicemente “PRINT SPC (12)"? Un ra- 
pido controllo del programmi per operare queste 
sostituzioni sarà molto apprezzato da noi e dal 
lettori. 

per maggior chiarezza, all’interno dell’ar- 
ticolo è conveniente usare caratteri maiu- 
scoli riferendosi a Istruzioni BASIC (esemplo RE- 
TURN, LIST, RND, PRINT ecc.). Se si desidera 
evidenziare una parola, è preferibile sottolinearla 
piuttosto che scriverla in carattere maiuscolo. 

n gll articoli ed i programmi potranno avere 
qualsiasi lunghezza: da una routine di una 
sola linea fino a programmi molto complessi. 

volendo includere diapositive, queste do- 
vranno avere formato 24x36, o 6x6. 
non prenderemo in considerazione artìco- 
li che siano stati sottoposti ad altre case 

editrici. 

il materiale non pubblicato non verrà re- 
stituito. 

il compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 
all’interesse del testo e/o del programma (da un 
minimo di L. 50.000 a un massimo di L. 
300.000). Il pagamento verrà effettuato in caso 
di pubblicazione del lavoro. 


Inviate Idee e programmi a: 

SUPERCOMMODORE 
Viale RestelH, 5 
20124 Milano 

e saremo lietissimi di pubblicare 1 contri* 
boti migliori. 











La Redazione 



W mwm Start w VKC • C64 

Leggendo la risposto od uno lettera su 
un numero dì SUPERCOMMODORE. 
ho scoperto che si può riportare il C64 
dìe condizioni di "appena acceso ” con 
lo SYS 64738. Tale SYS cancella però 
totalmente il contenuto della memora 
del computer: esiste una SYS che simuli 
invece fa pressione di RUN STOP + RE 
STQRE? 

Mario Colombo 

R, Ritorniamo su 11' argomento “cold 
start e warm start', anche per risponde- 
re ad altri quesiti posti da lettori, che, 
malgrado la SYS 64738, si ritrovavano 
ancora In memoria programmi in lin- 
guaggio macchina residenti a partire da 

Con una SYS 64738 si entra nella routi- 
ne di sistema operativo di “cold start". 
Questa routine è la prima ad essere ese- 
guita automaticamente quando si ac- 
cende il computer, ed ha lo scopo di 
rese (tare allo standard tutti i puntatori 
di memoria, porre 1 colori di schermo al 
vaioli di default, regolare il set di carat- 
teri sul modo maiuscoìo/grafico, porre 
allo standard tutti I vettori delH/Q e 
controllare se sia inserita qualche car- 
tridge. L'unica differenza tra l'effetto di 
questa SYS ed il reale spegnimento e 
riaccenslone del computer è lo “shock" 
dovuto al transitorio di corrente in que- 
st’ultimo caso. 

1 programmi in linguaggio macchina che 
risiedono a partire da 49152 vengono 
cancellati, se si spegne e riaccende 11 
computer, a causa di questo transitorio, 
che, provocando il passaggio dei valori 
di corrente e di tensione da zero al valo- 
re prescritto, “scompiglia" il contenuto 
del byte. Un esperimento: provate ad 
esempio a caricare In memoria - ponia- 
mo, ai solito, a partire da 8192 - una 
pagina grafica; quindi spegnete e riac- 
cendete Il computer, senza ovviamente 
Lasciar passare troppo tempo tra 


un’operazione e l’altra, e date le POKE 
di attivazione della bltmap a partire da 
8192. 

Teoricamente dovreste vedere solo il 
caos, mentre potrete notare che qualco* 
sa - e forse più di qualcosa - è rimasto 
della precedente pagina grafica. Ciò av- 
viene perché - anche se non in tutta la 
RAM - la corrente e la tensione impie- 
gano un certo tempo ad azzerarsi in cor- 
rispondenza dello spegnimento del 
computer, e può quindi capitare che 
riaccendendo la macchina si possano 
trovare zone dì RAM In cui corrente e 
tensione non si sono discostate troppo 
dal valore precedente, conservando 
quindi I dati anche se in maniera distor- 
ta e non più utilizzabile. 

La pagina grafica è un mezzo ideale per 
rendersi conto di questo fenomeno, in 
quanto dò che vi è visualizzato è facil- 
mente riconoscibile. La stessa cosa ca- 
pita naturalmente anche ai programmi, 
tuttavia per questi ultimi sappiamo be- 
ne che è sufficiente ,, un byte fuori po- 
sto per rendere il tutto irriconoscibile 
ed indistinguibile dalla RAM con II con- 
tenuto “veramente" casuale. 

La SYS64738, ovviamente, non prov- 
vede anche a “scompiglia re" I byte in 
modo casuale, e quindi è più che natu- 
rale ritrovare II linguaggio macchina a 
partire da 49152. Ciò è certamente un 
vantaggio, perché non presenta comun- 
que alcun tipo di inconveniente, 
il “warm start", o inìzializzazione a cal- 
do del computer, corrisponde alla pres- 
sione contemporanea dei tasti RUN/ 
STOP e RESTORE, Poiché il tasto RE- 
STORE è collegato direttamente al 
microprocessore ed invia un segnale 
NMl (Non Maskable Interrupt “ interru- 
zione non mascherabile) ogni volta che 
esso viene premuto, non esiste una vera 
e propria routine di sistema operativo 
che esegue queste funzioni. £ tuttavia 
possibile, dal momento che la funzione 
eseguita da R UN /STOP* RESTORE é 


equivalente all'esecuzione di un'Istru- 
zione BRK in linguaggio macchina, fare 
in modo che questa istruzione venga 

eseguita. 

li valore di BRK è 0, quindi basterà 
“pokare" uno zero in una locazione di 
memoria qualunque e disponibile, quin- 
di fare una SYS a questa locazione, ad 
esemplo. POKE 2046.0:SYS2048 (per 
Il C64}, oppure POKE828,0:5YS848 
(per il VlC 20 con o senza espansio- 
ni!. 

Il «odo coloro di foado «fisso 

Tra i vari modi grafici dtèpontòffi su/ mio 
€64, ho /etto che esiste anche un " modo 
colore di fondo esteso”, ma non mi è 
chiaro in che cosa consista. Potete darmi 
a/cune delucidazioni? 

Iflistio Rocco 

B. Il modo colore di fondo esteso è un 
modo grafico appartenente alla famiglia 
dei sistemi di modifica dei caratteri. Es- 
so controlla il colore principale del ca- 
rattere (foregroundj ed il suo colore di 
fondo (background) in modo autonomo 
dal colore di fondo su cui è Impostato 
lo schermo. Con questo sistema é possi- 
bile ottenere, ad esempio, uno schermo 
nero con un carattere verde a sfondo 
bianco. La Limitazione nelL'utlllzzo di 
questo “modo" consiste nella disponibi- 
lità dei soli primi 64 caratteri del set, 
cioè dalla " al *?", Ciò avviene dal 
momento che vengono usati per La defi- 
nizione del colore di fondo del carattere 
due bit del suo codice schermo. Esisto- 
no quattro registri colore, ognuno del 
quali può essere ovviamente impostato 
con uno dei 16 colori disponibili nel 
G64, mentre la memoria colore conter- 
rà il colore di fondo del singolo caratte- 
re. 

Per accedere al modo colore di fondo 
esteso occorre porre a 1 il sesto bft della 
locazione 53265. Ciò si ottiene con la 
seguente istruzione: 

PO KE5 3265 , PE E K(53 265)0 R 64 


SUPtRCCWUODCStf* */ss 7 


La piccola guida 
del principiante 


Il solo computer non può compiere alcuna operatone. 

Un computer possiede potenzialità, me, come una macchina 
senza benzina, senza un programma non può funzionare. 
La maggior parte del programmi pubblicati su SUPER- 
COMMODORE per 1 computer Commodore sono scritti In 
un linguaggio per calcolatori chiamato BASIC. U BASIC è 
facile da Imparare ed è disponibile, di serie, nel V1C 20 e 
nel Commodore 64, 

PrsfTtul BASIC 

Ogni mese SUPERCOMMODORE pubblica programmi sia 
per 11 V1C 20 che per U €64. Tanto per cominciare, se 
possiedi un V1C 20 copia solo 1 programmi scritti per la tua 
macchina, indicati con "versione per VIC 20*. Più lardi, 
quando avrai acquisito esperienza con 11 BASIC del tuo com- 
puter, potrai cercare di copiare e convertire programmi 
scritti per altri calcolatori. Diversamente dal Linguaggio cor- 
rente, che può essere variamente Interpretato, Il BASIC di 
sdito ha un solo modo corretto per Indicare qualcosa. 

Ogni lettera, carattere o numero ha ti suo significato. 

Un errore banale è costituito dalla sostituzione del numero 
"0" con la lettera h O" oppure II carattere minuscolo T 
Invece del numero “1" o ancora 11 carattere maiuscolo "B" 
con ti numero "S", 

Devi anche Inserire tutta la punteggiatura, i due punti (:) e 
le virgole, copiando esattamente ciò che appare sulla rivista. 
*Gll spazi possono essere Importanti, Per essere sicuro copia 
Il listato esattamente come si presenta. 

L'eccezione per questa regola di copiatura si presente quan- 
do incontrerai Indicazioni tra parentesi, quali: "{GIÙ} . 
Ogni cosa compresa tra parentesi è un carattere spedale 
oppure un carattere che non può essere facilmente prodotto 
con la stampante. Incontrando un carattere di questo tipo 
fai riferimento alla "Piccola guida per l'Input del program- 
mi **. 

Lo 1* tnulooi DATA 

Alcuni programmi contengono una sezione, o delle sezioni, 
ài strjzior.s DATA. Queste linee di Istruzione forniscono le 
«formazioni di cui ti programma ha bisogno . 

In alcuni casi le istruzioni DATA costituiscono ti programma 
vero * no tte, in altri contengono codici grand. Queste 


linee sono particolarmente soggette agli errori. Se un solo 
numero In una linea di Istruzione DATA ò sbagliato, il calco- 
latore potrebbe "piantarsi 1 ' o distruggere ti programma. La 
tastiera e il tasto STOP appaiono inattivi e lo schermo com- 
pletamente vuoto. Non lasciarti prendere dal panico. Non 
si Ò verificato alcun danno. 

Per riprendere ti controllo devi spegnere ti computer e suc- 
cessivamente riaccenderlo. Dò cancellerà qualsiasi pro- 
gramma presente in memoria, per cui i sempre necessario 
fare 11 SAVE del tuo programma prima di comandare li 
RUN. 

Se II computer si ferma, puoi caricare (LOAD) Il programma 
e cercare Terrore. 

A volte, quando il programma viene "lanciato", un'Istruzione 
DATA errate può causare un messaggio di errore. 

Il messaggio di errore potrebbe riferirsi alla linea di program- 
ma che legge (READ) il contenuto delle Istruzioni DATA. 


Dovresti prendere confidenza con II computer prima di pro- 
cedere alla copiatura del programma. 

Impara le istruzioni che si usano per memorizzare e richia- 
mare I programmi da nastro o da disco. Dovrai conservare 
una copia del tuo programma, se non vorrai copiarlo ogni 
volta che lo devi usare. Impara ad usare le funzioni di "edi- 
ting" delta tua macchina. Come puoi correggere un errore? 
Puoi tempre ricopiare la Unta e In questo caso devi sapere 
come procedere. Sapresti come Inserire 1 caratteri In "Inver- 
se", I caratteri minuscoli e quelli di controllo? 

Tutto dò è spiegato nel manuale del calcolatore. 

1) Copia ti programma una Linea alla volta, con ordine. 
Premi RETURN alla fine di ogni linea. Usa ti tasto "DEL" 
per correggere gli errori. 

2) Confrontala linea copiata con quella presente nella rivi- 
sta, Puoi controllare l'Intero programma net caso In cui 
si presenti un errore quando esegui 11 RUN. 

3) Accertati di aver Inserito le Istruzioni tra parentesi graffe 
con gli appropriati caratteri di controllo (fai riferimento 
alla "Piccola guida per l'Input del programmi" che trovi 
in questa stessa rivista). 

Slamo spiacenti di non poter rispondere singolarmente alle 
richieste di Information] drca I programmi, prodotti o serviti 
apparsi su SUPERCOMMODORE 
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H (prossimo) futuro dei 
sistemi periferici 



Nel Mttor« difll **homm compu- 
ter" c'è «tata, aagll alti ab a>il, 
osa coatlau a progf«MÌvi mvo- 
■iilost, ehm bm di pò* 

«ara la poca tropo do oiccklaa 
limitata coma lo ZXM ad altra 
pia potootl a solleticate, coma 11 
C64 od II racaota USX. Noi al è 
lo vaca rarificata io 'analoga 
avola* tona t a ecologica oai al- 
atami di otoarta di ma cai , cfca. 
al contrario, aooo riamati ao- 
ataorialmaota qaalll cfca già ab- 
itavano qoattro o ci ngo a anni fa. 


L a velocità di calcolo de) computer d 
permette di ottenere prestazioni 
matematiche e di gestione dati che* fino 
a qualche tempo Fa, richiede vano Inve- 
ce un duro e lungo lavoro, accompagna- 
to da carta e penna; non sempre tutta- 
via Il sistema Informatico di cui dispo- 
niamo si rivela la miglior soluzione per 
trattare un certo problema. 

Prendiamo In considerazione, ad esem- 
pio, uno degli utilizzi "pratici" del com- 
puter che per primi vengono In mente 
al novello utilizzatore: un'agenda telefo- 
nica completamente gestita dal compu- 
ter. 

Supponiamo che si sla entrati In posses- 
so, prendendolo da una rivista o acqui- 
standolo, di un programma di archivio 
indirizzi tale da soddisfare Le nostre - 
limitate - esigenze di Immagazzinamen- 
to di una serie di nomi, indirizzi e numeri 
di telefono. 

Dopo aver compiuto II noioso, ma inevi- 
tabile lavoro di Inserimento nel compu- 
ter di tutti questi dati, potremo final- 
mente vantarci con gli amici di poter 
ricercare II numero di telefono e r Indi- 
rizzo del signor Rossi, semplicemente 
digitando sul nostT© computer 1 caratte- 
ri "Ros" e premendo RETURN. Nello 
spazio di pochi attimi avremo visualizza- 


to sul video, o stampato su carta, ciò 
che d serve e - perché no - potremo 
avere un elenco in ordine alfabetico del 
contenuto dell'agenda, oppure potrem- 
mo fare in modo che certi numeri di 
telefono riservati vengano visualizzati 
solo dopo aver Inserito una certa parola 
chiave. 

Tutto vero* ma forse la cosa più como- 
da è ancora usare la vecchia e cara 


agenda, con i nomi cancellati, te scritte 
disordinate e di colore diverso: e la pos- 
siamo consultare eoe un tempo di ac- 
cesso medio di qualche secondo... 

Il programma di archiviazione telefoni- 
ca, Infatti, risulta comodissimo se da 
mane a sera possiamo tenere Impegna- 
to Il computer su di esso: in questo caso, 
tuttavia, disporremmo di una rubrica te- 
lefonica piuttosto cara.,. 



Se, al contrarlo, quando ci serve un nu- 
mero telefonico dobbiamo spegnere 11 
computer per uscire dal word processor 
che stiamo utilizzando, cercare la cas- 
setta con 11 programma di archiviazione 
telefonica, attendere che esso venga ca- 
ricato in memoria, attivarlo e quindi at- 
tendere ancora che vengano caricati 
tutti i dati registrati su nastro, vediamo 
facilmente che per cercare un numero 
di telefono avremo un tempo di accesso 
medk> di una decina di minuti. Allora, 
a che serve la velociti di calcolo del 
computer? 

Non È I] computer a rivestire la parte 
del IMm potato, ma è il sistema dì memo- 
rizzazione di massa a non reggere il pas- 
so con le prestazioni ottenibili dal com- 
puter stesso. 

Il sistema di registrazione Commodore, 
sia di file binari (programmi) che di file 
ASCII (dati), risale ai tempi gloriosi del- 
le prime serie PET, ed è stato ancora 
mantenuto senza modifiche anche per i 
nuovi modelli CI 6 e Plus/4, Non molto 
dissimile è la situazione del sistema dì 
memorizzazione dati su floppy disk: per 
chi passa daH'abitudìne a lavorare con 
cassetta ad un sistema a disco sembra 
di aver sfondato la barriera della veloci- 
ti della luce, ma d si abitua velocemen- 
te e non si tarda a rendersi conto di 
quanto anche il caricamento da disco 
avvenga con esasperante lentezza ri- 
spetto ad altri sistemi. 

Fortunatamente, anche II settore degli 
apparati di memoria di massa si sta sve- 
gliando dalla lunga stasi e promette, a 
medio se non a breve termine, innovati- 
vi e sostanziali cambiamenti. 

1 "compact disk", già entrati nel merca- 
to audio ed HI-FI da qualche tempo, 
rappresenteranno - e rappresentano 
già, in alcuni sporadici casi - un Interes- 
sante strumento per la memorizzazione 
di massa anche per computer: attual- 
mente 1 “compact disk" per computer 
possono essere soltanto letti, In quanto 
per la loro registrazione sono richieste 
complicate apparecchiature dal costi 
proibitivi. Malgrado questa limitazione, 
U Loro punto di Interesse sta nella enor- 
me massa di dati immagazzinabile su 
una facciata di questi dischi: la Nippon 
Columbia ha prodotto un tipo di “com- 
pact disk" dedicato al computer, che 
pu6 Immagazzinare fino a 550 Mbyte 
per facciata (equivale a dire che un sin- 
golo disco a doppia faccia contiene tutti 
1 dati ora Immagazzinati su un insieme 
di circa 6400 floppy disk per 15411), 
Con una misura del diametro di circa 
cinque polli d - più o meno come gli 
attuali floppy - ì “compact disk" sfrut- 
tano lo stesso meccanismo di lettura la- 
ser del “cugini” audio, e sono attual- 
mente sottoposti a studi e ricerche per 
realizzare un sistema a basso costo, che 
permetta di ottenere anche la possibili- 
tà di registrazione dati. 

Un altro sistema * anche se un po' par- 
ticolare - di memoria di massa che sarà 
presto disponibile è 11 videodisco. Sono 
già comparsi anche In Italia i primi vi- 


deogiochi "da bar" che lo utilizzano, do- 
tati di dischi sui quali è memorizzato un 
gran numero di immagini digitalizzate, 
tali da permettere al giocatore di mano- 
vrare un personaggio od un oggetto In 
un cartone animato - od addirittura in 
un film - totalmente interattivo. 

Questi dischi sono in grado di contenere 
fino a 50000 immagini o fotogrammi 
diversi, con un tempo medio di accesso 
rapidissimo. La Digital Research ha già 
commercializzato sul mercato statuni- 
tense una particolare interfaccia del co- 
sto - limitatissimo - di 49 dollari, che 
permette di collegare il C64 ad un letto- 
re di videodischi. 

I sistemi di memorizzazione a nastro 
magnetico, già oggi arcaici anche se - 
ed In parte proprio per questo - più 
economici, sono destinati a non avere 
ancora vita lunga: appena sarà svilup- 
pata una tecnologia di produzione dei 
nuovi sistemi economicamente competi- 
tiva, saremo finalmente posti In condi- 
zioni tal! da poter sfruttare appieno la 


velocità di calcolo insita nel nostro com- 
puter. 

Certamente lo sforzo profuso nella ri* 
cerca dalle grosse aziende produttrici di 
hardware non si limita agli apparati di 
memorizzazione di massa, ma è orienta- 
to anche verso una nuova serie di peri- 
feriche che, immaginate ora, possono 
avere del fantascientifico. In realtà, so- 
no solo dietro l’angolo. 

La Synapse Corporation (nota senz'al- 
tro a chi si interessa di videogame), già 
vende in USA un joystick completamen- 
te... rivoluzionario: il “Relax" - questo 
è il suo nome - consiste in un leggero 
sensore che sì sistema sul capo del gio- 
catore e, tramite impulsi elettromagne- 
tici (piccolissimi impulsi generati dal lie- 
ve movimento dei muscoli del capo), 
permette di controllare lo svolgimento 


di un videogioco o comunque di un pro- 
gramma, comodamente seduti in pol- 
trona e senza toccare fisicamente né ta- 
stiera né joystick “tradizionali" di alcun 
tipo. 

Sempre in USA viene già venduto un 
accessorio per l'Apple Macintosh, In 
grado di “leggere" i testi che vengono 
fatti scorrere sopra il rullo della stam- 
pante ed Immagazzinarli In memoria 
centrale o su disco: è la fine ufficiale del 
lavoro di digitazione dì listati o dì copia- 
tura dì qualsiasi testo! 

Qì schermi video a cristalli Liquidi a co- 
lori (LCD: llquld cryatal display), con la 
loro altissima risoluzione, stanno per 
uscire dallo stadio dei prototipi: mentre 
gli schermi a cristalli Liquidi monocroma- 
tici sono ormai da tempo usati per com- 
puter. calcolatrici ed altre applicazioni, 
l'aggiunta del colore sembrava fino a 
ieri un problema di difficile soluzione. 
Ora, con i transistor al silìcio a film sotti- 
le, il colore sta iniziando a comparire su 
schermi di dimensioni ridotte, e presto 


sarà disponibile anche su schermì dì 
grosse dimensioni. 

Infine, malgrado la necessità del mo- 
dem sia da noi poco sentita a causa 
della ancora non totale diffusione del 
personal e di alcune scelte politiche, è 
interessante apprendere che in USA è 
stato presentato il primo modem via 
radio, in grado di ricevere programmi 
da un normale apparecchio radio a mo- 
dulazione di frequenza alla velocità di 
ben 4800 baud e del costo di soli 70 dol- 
lari. 

Come si vede, il mondo che gravita in- 
torno al computer è In piena “efferve- 
scenza" e sarà in grado sul breve termi- 
ne di offrirci novità ed apparecchiature 
che oggi possono ancora sembrare usci- 
te dalle pagine di un moderno Jules 
Verne. 


Il u Compii et disk 11 , II cui 
disastra misura circa 
cinque pollici, può di- 
ventare un supporto di 
usuarla di mussa pur I 
personal ud hom 
pater. 


I dischi Laser 
Uto fino a 50 000 Imi 
differenti. 


possono contenere sn ogni 
om pietas 
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Piccola guida per 
l'input 

dei programmi 


molti del programmi listati da SUPERCOMMO- 

Pidore* 


no aeue 

a 


1 contengono particolari caratteri di control* 
lo (controllo cursore, tasti colore, video-inverse, eoe.). 
Per rendere chiaro dò che dev'essere battuto quando 
è necessario inserire uno dei suddetti caratteri sono 
•tate stabilite le seguenti convenzioni. 

Generalmente l listati per V1C 20 e C64 contengono delle 
«parole» racchiuse tra parentesi graffe } j; tali 
rappresentano particolari caratteri di controllo; 
sJgnlfka premere 11 simbolo del cursore verso U basso. 
SPAZI] vuol dire battere 5 volte la barra-spazio. 

Per Indicare che un tasto dev'essere «shiftato», cioè 
premuto insieme al tasto 5HIFT, nel listato Li simbolo 
di questo tasto sarà sottolineato. 

Per esempio S significa che dev'essere premuto 11 tasto 
S mentre è abbassato U tasto SHIFT. 

La manovra farà apparire sullo schermo un piccolo 
■cuore». 

Trovando un simbolo sottolineato chiuso tra parentesi 
graffe (esemplo jlO Nj) dovrà essere Interpretato co- 
me «premere II carattere Indicato per U numero di volte 
che lo precede nelle parentesi»: nel nostro esemplo 

§ remere 10 volte il tasto N «shiftato». 

e 11 tasto da premere è indicato tra le parentesi [<}], 
vuol dire che lo stesso dovrà essere premuto mentre 
è premuto 11 tasto «Commodore» (Il tasto «Commodo- 
re» è quello posto nell'angolo In basso a sinistra). 

Se il tasto scritto tra (01 è preceduto da un numero, 
ciò significa che li tasto dev'essere premuto per 11 nu- 
mero di volte Indicato. 


Raramente si potrà trovare un carattere alfabetico soli- 
tario racchiuso tra parentesi graffe. Tale carattere sul 
C64 può essere battuto mentre è premuto II tasto 
CTRL. 

Ad esemplo (A} sta ad Indicare la sequenza CTRL- A. 
A proposito del «modo virgolette» è nota la possibilità 
di muovere il cursore sullo schermo con l tasti CRSR. 
Ogni tanto i programmatori desiderano muovere il cur- 
sore durante l'esecuzione del programma. £ per que- 
sto motivo che nel programmi si troveranno dei I SUN L 
{HOME} e jBLllf 

L’unico modo perchè II calcolatore distingua II coman- 
do diretto da quello inserito nel programma è il «modo 
virgolette». Premendo il tasto «virgolette» (tasti SHIFT 
2) il calcolatore si predispone appunto In «modo virgo- 
lette». 

Battendo un carattere qualsiasi, cercando poi di cor- 
reggerlo muovendo 11 cursore, si otterrà solo un trat- 
to verticale in un quadratino inverso. Questo è infat- 
ti Il simbolo del cursore a sinistra nel «modo virgolette». 
L'unico comando di editing non utilizzabile alTintemo 
di un programma è 11 DEL. Battendo nuovamente le 
«virgolette» Il calcolatore lascia U «modo virgolette». Si 
pud accedere al «modo virgolette» quando Inserite spa- 
zi nella linea. 

In ogni caso, il sistema plO semplice per uscire dal 
«modo virgolette» è quello di premere 11 tasto RE- 
TURN. 

Utilizzare la tabella che segue quando è necessario 
Inserire comandi relativi al cursore e al tasti colore. 


Quando leggete: 

Premete; Vedrete: 

Oimndo 

leggete: Premete: 

Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

<CLR} 

EBBI (QjQJQ 

E 

1CYN) 

I3JJI o 

li 

«7>1 

ma 

□ 

(HOME} 

QUJJU 

m 

{PUR} 

«min 

m 

1<8>J 

□ □ 

mm 

mm 

(sui 


□ 

(CRN} 

coso 

□ 

(FI} 

CD 

5 

(GIU* } 

QBE *9 

m 

(BLU) 

fnT ^ Q 

B 

(F2) 

QE3 

SI 

(SIS) 

(QJI QiLfl 

il 

{ YEL} 

tua □ 

SD 

(F3 } 

w 

■ 

f DES} 


a 

£<1>I 

OD 

□ 

(P4> 

03 

a 

( RVS } 

CSI □ 


[<2>l 

a b 

PS 

(F5) 

OD 

- ■ 

(OFF} 

ciao 


l<3>3 

QD 

a 

(F6) 

m 

9 

(BLU} 

QQ Q 


{<*>] 

ao 

CD 

(P7) 

GB 

II 

(WHTJ 

CEBO 

m 

1<5>1 

QO 

E 

(FB) 

nm 

m 

(RED) 

I4T11 Q 

h 

l<6>] 

HO 

■1 
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Arrivano i Quaderni Jackson, tanti 
volumi monografici per conoscere bene 
il personal computer e l'informatica. 

Nei quaderni Jackson c'è tutto quello 
che è importante sapere sui computer, la 
programmazione, i linguaggi, il software, 
le applicazioni e i nuovi sviluppi dell'in- 
formatica. 

Quaderni Jackson: l'informatica a tutti 
i livelli, in una collana aperta, pratica, 
essenziale, aggiornata. 

L'informatica tascabile per chi vuole 
saperne di più e compiere cosi un salto 
di qualità nel mondo di oggi e di domani. 

Ogni mese, 2 volumi. 


Volumi già pubblicali: 

danni OaccagHnl " Vivere col Perconal Computa*" 
Paolo tozzola “Donlro O fuori lo •catolo" 

Enrico Od*in "Cd i cubilo BASIC Voi. I" 

Enrico Odori! “ Ed è cubile BASIC Voi. Il" 

Paolo Capoturni 

e Marco Giocataci! “ A ctaccuno II cuo Porco noi" 
Wvfe firanonoonf 

* Fumando ftjMW "To W nof lo do* 
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OK-List 
per la perfetta 
battitura 
dei listati 


I nserite in memoria l'OK-UST prima 
di accingervi a battere I Urtati pubbli- 
cati: avrete a deportitene un formidabi- 
le mezzo per essere sicuri dì aver inseri- 
to nel computer ogni carattere In modo 
assolutamente corretto. 

Tutti i nostri listati sono caratterizzati 
da un numero aggiunto ad ogni linea di 
programma, ad esempio: rem 123, 
NON COPIATE QUESTA PARTE 
DELLA LINEAI Serve unicamente per 
vostra Informazione, L'Istruzione REM 
ha l'unico scopo di renderla Inoffensiva, 
se per errore doveste batterla. 

Se, prima dì iniziare il lavoro di battitura 
del listato, caricate In memoria OK- 
LIST e lo attivate con RUN, per ogni 
linea che battete verrà visualizzato un 
numero (detto checksum) nell'angolo 
superiore sinistro dello schermo. 
Confrontate questo numero 
pubblicato per ogni Linea 
non corrisponde, dò 
commesso un errore 
la linea stessa. 

Le ore buttate per cercare e correggere 
errori di battitura in programmi che non 
funzionano saranno solo un lontano ri- 
cordo 1 

Due ultime cose di cui tenere conto: 
OK-LIST non tiene conto degli spazi: 
questo per vostra convenienza, polchi 
questi generalmente sono poco impor- 
tanti. 

Infine, OK-LIST à allocato nel buffer del 
registratore (locazioni 886-1018), quin- 
di, prima di salvare su cassetta 11 pro- 
gramma che state battendo, ricordatevi 
di dlsabltarlo premendo contempora- 
neamente RUN/STOP + RESTORE, 
Potrete poi riattivarlo con SYS 886. 
li sistema più comodo per usare OK- 
LIST à quello di battere normalmente 
Il programma, quindi listarlo e portarsi 
con il cursore sul numero di linea più 
basso che appare sul video; premere 
quindi RETURN e confrontare 1] nume- 
ro di eheck-sum visualizzato nell'angolo 
superiore sinistro del video con quello 
pubblicato per la data riga del program- 
ma. Il cursore si porterà automatica- 
mente sulla linea successiva e non do- 
vrete fare altro che premere II che* 
cksum seguente. 

Data l'area di memoria In ad si trova, 
OK-LIST non può essere usato per con- 
trollare un programma già salvato su 
cassetta, mentre ciò è possibile se 11 pro- 
gramma à stato registrato su disco. 


OK-LIST 

por VIC 20 
• C 64 


100 PRINT" {CLR) ATTENDERE PREGO..." 

10S FORI «8 B6TO101 6 : READ A : CK“CK+A : PORSI , A: 
«EXT 

110 IF CK017539 TKBN PRINT" { GIU 1 } ERRORE 
NELLE ISTRUZIONI DATA" t END 
120 SYS886 SPRINT" {CLR}( 2 GIO'JOK-LIST AT 
TIVATO . " S NEW 

886 DATA 173,036,003,201,150,208 
892 DATA 001,096,141,151,003,173 
898 DATA 037,003,141,152,003,169 
904 DATA 150,141,036,003,169,003 
910 DATA 141,037,003,169,000,133 
916 DATA 254,096,032,087,241,133 
922 DATA 251,134,252,132,253,008 
928 DATA 201,013,240,017,201,032 
934 DATA 240,005,024,101,254,133 
940 DATA 254,165,251,166,252,164 
946 DATA 253,040,096,169,013,032 
952 DATA 210,255,165,214,141,251 
958 DATA 003,206,251,003,169,000 
964 DATA 133,216,169,019,032,210 
970 DATA 255,169,018,032,210,255 
976 DATA 169,058,032,210,255,166 
932 DATA 254,169,000,133,254,172 
988 DATA 151,003,192,087,208,006 
994 DATA 032,205,189,076,235,003 
1000 DATA 032,205,221,169,032,032 
1006 DATA 210,255,032,210,255,173 
1012 DATA 251,003,133,214,076,173 
1018 DATA 003 




Par tm t«rxft 
di I). G. Barzaghi 


ABC del Linguaggio 


li qe**ta piiitttM pmrtm d«l io* 
■tra brtvt rtifflp tttravtrto II 
littguftfgfo Mcclittì cl occip«- 
riio del iraifiriMtato di bloc- 
chi di dati, affroa landa «vtn ina- 
li iifoniitl non ancora trattati 
« In particolare compio t a ado, In 
aMalora pii organica di qnanto : 
fatto no Ila pan tata precedente, 
l'arpomoato riguardante lo tec- 
nicità 41 Indlrluamoato. 

In frodar* ceso, coma di coaaea- 
to, alenai programmi eeeapH fi- 
ca ti vi, tra cal ano c o m plico ron- 
tino di "acrolUaf "* 


Q ual è l'utilità di una routine in lin- 
guaggio macchina per il trasferi- 
mento di blocchi di dati? Coloro, tra voi, 
che possono vantare una più appof ondi- 
la conoscenza del Linguaggio macchina 
sanno che simili routine sono parte inte- 
grante di qualsiasi programma assem 
bla t ore degno di questo nome. Anche 11 
nostro “Supermonltor", infatti, dispone 
della funzione “T*, che consente il tra- 
sferimento di locazioni di memoria. 
Tale istruzione richiede di specificare 
l'Indirizzo iniziale e finale del blocco di 
dati che si desidera trasferire e l'indiriz- 
zo Iniziale della sua nuova posizione, lì 
trasferimento avviene a partire dall'ulti- 
ma locazione del blocco, Il che consen- 
te. nel caso in cui le due aree siano in 
parte sovrapposte ed LI trasferimento 
avvenga nel senso crescente degli indi- 
rizzi, di non cancellare II contenuto del 
blocco che si desidera trasferire, prima 
che II trasferimento sla avvenuto. Ov- 
viamente, nel caso in cui Lo spostamen- 
to avvenga in senso opposto e Le due 
aree si sovrappongano II risultato non 
sarebbe corretto e sarà quindi necessa- 
rio ricorrere ad una doppia operazione, 
utilizzando un’area di memoria libera 
come memoria "tampone”. 

Sarà necessario tener conto dì questi 
particolari nello sviluppare I nostri sot- 
toprogrammi In linguaggio "ASSEM- 
BLY" onde evitare spiacevoli inconve- 
nienti. 


Perché dunque realizzare programmi In 
linguaggio macchina per 11 trasferimen- 
to di blocchi, quando questi possono es- 
sere opportunamente posizionati trami- 
te “Su per monitor” e quindi caricati in 
memoria, direttamente nella posizione 
originale* da nastro o da disco? 

Le ragioni sono molteplici. Ad esempio 
perché determinate aree delia memoria 
non sono accessibili nemmeno per Ja 
versione rilocata del noafro assemblato- 
re. 

Abbiamo visto nel numero scorso come 
liberare l’area di memoria che va da 
49152 ($COOO) a 53248 (SDOGO), tra- 
sferendo il codice ASSEM BLY del pro- 
gramma assemblatore a partire da 


8192 ($2000), In questo modo rimane 
però Invariata la posizione del sistema 
operativo da 57344 a 65535 ($EOOO - 
$FFFF), delle cui routine il programma 
fa uso e la rlJocazLone Integrale dei qua- 
le sarebbe, quanto meno, problemati- 
ca. 

La zona occupata dal sistema operativo 
è Interdetta al programma assemblato- 
re e qualsiasi tentativo di trasferire dati 
In quelle locazioni avrà come risultato 
o una operazione di trasferimento in- 
completa o, addirittura, U blocco critico 
del sistema, che vi costringerà a spegne- 
re Li calcolatore, perdendo eventuali da- 
ti precedentemente inseriti. 

Si pud, ovviamente, rinunciare ad usare 
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quelle locazioni di memoria. 

Esse sono, però, particolarmente como- 
de. Trasferendo infatti il blocco di me- 
moria di 16Kbyte "visto" dal chip VIC-J1 
di gestione del monitor, a partire dalla 
locazione di indirizzo 49152 (Banco 3), 
si possono inserire in questo banco di 
memoria fino a quattro blocchi di me- 
moria di schermo o due set completi di 
caratteri ridefiniti, ponendoli al di sotto 
dei chip video (6566; da 53248 a 
53294) e audio (6581 SID, Sound Inter- 
face D evie e, dispositivo di interfaccia- 
mento sonoro; da 54272 a 54300), Nel- 
lo stesso banco, a) dì sopra della memo- 
ria colore (da 55296 a 56319) e dei 
chip di interfaccia 1 e 2 (IRQ, Interrupt 
ReQuest, richiesta di interruzioni, da 
56320 a 56335 e NM1, Not Maskable 
Interrupt, interruzioni non mascheragli, 
da 56576 a 56591), possono trovare 
posto otto schermi a bassa risoluzione 
od uno schermo intero ad alta risoluzio- 
ne, oppure fino a quattro set di caratteri 
personalizzati. Operando opportuna- 
mente, è possibile archiviare in questa 
zona, che si trova completamente al si- 
curo da eventuali interferenze da parte 
di programmi BASIC (dai momento 
che l'interprete BASIC risiede alle loca- 
zioni da 40960 a 49151), tutto quanto 
può servire alla gestione della grafica 
di programmi BASIC anche molto com- 
plicati. Nel caso dì uno degli ultimi pro- 
grammi da noi realizzati per la J.s oji (la 
versione per C64 della "Battaglia di 
Abukir"! siamo riusciti ad inserirvi due 
schermate a bassa risoluzione ed uno 
schermo colore ausiliario, un set di ca- 
ratteri personalizzati completo e la for- 
ma di ben 96 sprite diversi; oltre ad 
avere ancora spazio peri sottoprogram 
mi in linguaggio macchina necessari alla 
gestione del tutto, proprio quei pro- 
grammi che illustreremo in questo arti- 
colo. 

Un primo scopo delle nostre routine 
consisterà quindi nel consentire il cari- 
camento rapido dei nostri dati, utilizzan- 
do una zona di memoria ausiliari a. che 
potremo quindi "rilasciare" ad eventua- 
li programmi BASIC, dopo aver provve- 
duto ad un trasferimento rapido dei dati 
nella locazione di memoria voluta. Vale 
la pena di affrontare l'argomento In for- 
ma compiuta, per chiarire anche even- 
tuali dubbi che vi possano essere sorti 
riguardo l'utilizzo dei programmi regi- 
strati tramite “Superni onitor". 

Questi possono essere caricati In memo- 
ria direttamente alle locazioni da cui 
provengono, a patto di specificare, tra- 
mite Il suffisso \ I % apposto alla istruzio- 
ne di caricamento, che non si tratta di 
programmi BASIC, ma ASSEMBLY o 
di blocchi di dati. 

Supponendo quindi di aver registrato 
una subroutine In linguaggio macchina 
tramite l'istruzione 

.$ SODO 9FFF “PROVA" 08 

sara possibile ricaricarla nelle locazioni 
di provenienza (32768-40959), senza 


aver bisogno del programma assembla- 
tore. tramite l'istruzione 

LOAD "PRO VA", 8.1 

Tutto questo nel caso in cui si utilizzi 
come periferica l'unità dischi; nel caso 
di registrazione su nastro non è Indi- 
spensabile specificare la periferica per 
la prima istruzione, che diverrà quindi 

.$ 8000 9FFF "PROVA" 

o, anche 

.3 8000 9FFF “PROVA" 01 

mentre nel secondo caso è necessario 
specificare il numero che identifica la 
periferica utilizzata tramite l'istruzione 

LOAD "PRGVAU4 

Queste istruzioni consentono di carica- 
re, come detto, il nostro programma In 
linguaggio macchina, o 1 dati di cui desi- 
deriamo disporre, direttamente nella 
zona di memoria loro destinata (tentati- 
vi di interferire con la pagina zero - 
utilizzata, fatta eccezione per le locazio- 
ni specificate nel numero scorso, dal si- 
stema operativo — o con l'interprete 
BASIC provocheranno, ovviamente, 
malfunzionamenti del programma o da- 
ti inutilizzabili). 

Esse sono, inoltre, altrettanto rapide del 
metodo visto nelle puntate precedenti 
e consistente nell' inserì re nelle locazioni 
di memoria volute i valori decimali cor- 
rispondenti alla codifica ASSEMBLY del 
nostro programma, leggendoli da frasi 
DATA. QÒ consente d: risparmiare lo 
spazio in memoria che risulterebbe altri- 
menti necessario per ospitare il conte- 
nuto delle frasi DATA {che, data la co- 
difica delle istruzioni DATA in BASIC, 
comporta l'utilizzo di una zona di me- 
moria ben maggiore di quella effettiva- 
mente utilizzata dal nostro program- 
ma). frasi che risultano del tutto inutili 
una volta che il loro contenuto è stato 
letto. 

Una semplice alternativa è rappresen- 
tata dalla creazione di file sequenziali 
su disco, da cui leggere i dati con un 
ciclo di inserimento in memoria, non dis- 
simile da quello utilizzato per le frasi 
DATA. Questo sistema, però, ha II non 
piccolo inconveniente di essere, anche 
su disco, mortalmente lento (come ab- 
biamo avuto modo di sperimentare per- 
sonalmente) e non osiamo pensare a 
quali sarebbero i suoi effetti su nastro. 
Ecco quindi che il caricamento tramite 
le istruzioni suddette risulta particolar- 
mente attraente. Il loro principale in- 
conveniente è però dato dal fatto che 
simili istruzioni andrebbero eseguite in 
formato diretto, cioè da tastiera, prima 
di aver mandato in esecuzione gii even- 
tuali programmi BASIC che utilizzano 
la nostra (o le nostre) routine in linguag- 
gio macchina. 

In realtà, con un piccolo espediente, è 


possibile inserire le istruzioni di carica- 
mento dei nostri file o sottoprogrammi 
internamente a programmi BASIC. 
Dovremo, innanzi tutto, essere ben sicu- 
ri che il programma BASIC contenente 
le istruzioni .di caricamento non -occupi, 
con parte del suo listato o della sua area 
dati, la zona in cui il file viene caricato; 
poiché questo provocherebbe nel primo 
caso il blocco critico del calcolatore e 
nel secondo lìnterruzlone del program- 
ma. Nel caso, quindi, in cui il nostro 
programma sia particolarmente lungo, 
e sia necessario disporre di una area 
"tampone" comoda in cui caricare I dati 
prima del loro definitivo trasferimento 
nelle aree di memoria loro destinate (ad 
esempio quelle del terzo banco di me- 
moria, viste nella prima parte dell' arti- 
colo), sarà necessario ricorrere ad una 
tecnica nota in programmazione come 
"overlay" o “ricopertura" dei program- 
mi. 

Questo termine veniva originariamente 
utilizzato nei sistemi a partizione di me- 
moria o mult intente, in cui piu program- 
mi venivano eseguiti, a turno, in paralle- 
lo, in modo da suddividere il tempo di 
elaborazione fra più lavori; dato lo spa- 
zio limitato nella memoria centrale (ad 
accesso veloce) del calcolatore, i lavori 
in corso di elaborazione, ma non in quel 
momento in esecuzione, venivano “sca- 
ricati" su memoria di massa (come i di- 
schi rigidi) ad accesso più lento rispetto 
alla memoria centrale, e lo spazio da 
essi occupato veniva reso disponìbile 
per il programma in esecuzione in quel 
momento, 

AI momento dellìmenuztone del pro- 
gramma suddetto gli eventuali pro- 
grammi "pendenti” potevano, attraver- 
so politiche opportune, venire ricaricati 
in memoria centrale, “ricoprendo" il 
programma precedente e riottenendo 
l'attenzione della unità centrale. 

In seguito il termine è passato ad indica- 
re tutti quei casi in cui, non essendoci 
spazio sufficiente disponibile in memo- 
ria, si ricorreva all'artificio di segmenta- 
re i programmi, caricandoli quindi nello 
spazio di memoria disponibile al mo- 
mento della loro esecuzione. 

Nel caso dei piccoli sistemi, come un 
personal computer del tipo da voi utiliz- 
zato, il metodo può rivelarsi particolar- 
mente utile quando vi siano determinati 
blocchi di istruzioni, che vengono ese- 
guiti una sola volta nel corso del pro- 
gramma (preferibilmente all'Inizio) e 
che Interagiscono con il resto del pro- 
gramma stesso solo attraverso il conte- 
nuto dì determinate locazioni di memo- 
ria , Uno degli inconvenienti di questa 
tecnica è infatti rappresentato dal fatto 
che i due programmi che si succedono, 
in "overlay”, ad occupare il limitato 
spazio in memoria disponibile non pos- 
sono, come suol dirsi, "passarsi” varia- 
bili!. se non registrandone II contenuto 
In locazioni di memoria convenute e non 
interessate dal listato del programma 
BASIC, 

Tutto ciò sembrerà, probabilmente. 
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piuttosto complicato a chi non abbia 
mal affrontato prima l'argomento, In 
pratica non si tratta che di avere un 
programma BASIC (il programma “ ca- 
ricatore") che si occupi di caricare da 
nastro o da disco un altro programma 
BASIC* mandandone quindi in esecu- 
zione la prima istruzione, senza soluzio- 
ne di continuità, in modo che, virtual- 
mente* sembri di avere a che fare con 
un unico programma. Il sistema risulta 
applicabile anche quando si desidera li- 
berare le locazioni iniziali della memoria 
BASIC {da 2048 in poi), per ospitare 
dati o routine In Linguaggio macchina* e 
si ritiene noioso digitare ogni volta da 
tastiera le istruzioni necessarie per spo- 
stare I puntatori all'inizio del program- 
ma. 

La tecnica in questione, infatti, consiste 
appunto nello specificare il contenuto 
delle locazioni da 43 a 52, che suddivi- 
dono la memoria disponibile, in modo 
da ospitare sia il listato BASIC del pro- 
gramma da caricare sia le variabili, ri- 
partite tra semplici (sia Intere che frazio- 
narle). aggregate (matrici) e stringhe. 
Le dieci locazioni suddette corrispondo- 
no infatti a cinque puntatori, composti 
da un byte meno significativo ed un byte 
più significativo. Le locazioni 43 e 44 
rappresentano il puntatore all'Inizio del 
programma BASIC (II loro contenuto 
"per default" è* rispettivamente, 0 e 8; 
pari a 256' 8 +0*2048}. La coppia 45/ 
46 contiene il puntatore all'Inizio delle 
variabili e t implicitamente, Indica anche 
la fine dell'area dì memoria destinata a 
contenere il listato del programma BA 
SIC, dal momento che le aree suddette 
sono contigue. Le locazioni 47/48 sepa 
rano l'area delle variabili semplici dalle 
variabili aggregate o "array"; il limite 
superiore dell'area riservata alle matri- 
ci (che costituisce* in genere, la parte 
preponderante della memoria destinata 
alle variabili) viene segnalata da un pun- 
tatore apposito, ospitato dalle locazioni 
49 e 50. La fine della memoria viene 
Invece indicata dal puntatore costituito 
dalle locazioni 5 1 e 52* che segnalano 
anche, assieme alla coppia 49/50, 
l'area disponibile per le variabili alfanu- 
meriche. E interessante notare come, in 


questo caso, la registrazione avvenga a 
partire dagli indirizzi di memoria più al- 
ti* "puntati" appunto dalle locazioni in 
questione* scendendo verso il lìmite del- 
l'area riservata alle matrici. 
Supponendo di dover specificare la se- 
guente ripartizione della memoria 

DA A 

Programma BASIC 833 28159 

Variabili semplici 28160 28271 

Variabili aggregate 28272 37068 

Variabili alfanumeriche 37069 40959 

sarà necessario ricorrere alla seguente 
configurazione di puntatori 


Locazione 

Contenuto 

43 

65 

44 

3 

45 

0 

46 

110 

47 

112 

48 

no 

49 

204 

50 

144 

51 

255 

52 

160 


Notate come ciascun indirizzo sia stato 
suddiviso In byte meno significativo (che 
viene Inserito nella locazione del punta- 
tore di indirizzo inferiore) e byte più si- 
gnificativo tramite una semplice divisio- 
ne con resto* per cui 

833:256*3 Resto: 65 

Notate, inoltre, come la memoria desti- 
nata al programma ed alle sue variabili 
termini esattamente al di sotto dell'In- 
terprete BASIC (da 40960 a 49151}, 
Le eventuali aree disponibili a partire 
da 49152 possono essere destinate a 
memoria di schermo o a contenere la 
forma di eventuali sprite o sottopro- 
grammi in linguaggio macchina. Come 
si può notare nell'esempio preceden- 
te. infatti* è possìbile abbassare 11 pun- 
tatore a li' inìzio del programma fino 
a comprendere l'intera memoria di 
schermo “per default" (da 1024 a 
2048} — In questo caso sarà* ovviamen- 
te* necessario spostare la memoria di 
schermo e la memoria carattere nel ter- 
zo banco di memoria - e addirittura 
parte o tutto il buffer del registratore 
(nel caso in cui non si usi l'unità nastro 
come periferica} da 828 a 1019. 

Nell' e sempio in questione le locazioni 
da 828 a 831 sono state destinate a 
contenere altrettante variabili (in valore 
assoluto minori o uguali a 255} che era 
necessario ^passare" al programma 
"chiamato". E ovviamente possìbile ag- 
girare la limitazione riguardante II valo- 
re delle variabili, suddividendone il con- 
tenuto in più locazioni con la tecnica 
“byte ■ più - significativo /byte - meno - 
significativo". 

Per sapere quali valori attribuire ai pun- 
tatori è sufficiente interrompere l'esecu- 


zione del programma che si desidera 
caricare (dopo che siano state dimensio- 
nate tutte le variabili aggregate) e far 
visualizzare al calcolatore il contenuto 
delle locazioni 43-50* aggiungendo un 
certo “lasco" per eventuali aggiunte o 
modifiche al programma. 
Naturalmente* è preferibile compiere 
questa operazione una volta che si sia 
certi del buon funzionamento del pro- 
gramma chiamato, anche se è ovvia- 
mente possibile surdìmens fonare ogni 
area in modo opportuno* occupando 
tutta la memoria disponibile, in modo 
da lasciare spazio per eventuali aggiun- 
te. Ciò potrebbe addirittura rappresen- 
tare un buon sistema di progettazione 
dei propri programmi: una messa a pun- 
to del singoli blocchi funzionali* seguita 
da un assemblaggio delle varie parti. 
Una volta settati i puntatori suddetti sa- 
rà necessario (internamente al pro- 
gramma “chiamante") azzerare il conte- 
nuto della Locazione a partire da cui si 
desidera caricare il nuovo programma 
e della locazione che la precede (nel 
nostro caso 833 e 832, rispettivamen- 
te)* quindi bisogna eseguire una istruzio- 
ne CLR, che azzera il contenuto delle 
variabili* e Infine inserire l'istruzione di 
caricamento del nuovo programma: ad 
esempio 

POKE832,0:POKE833*0: CLFLLOAD 
“SECONDA PARTE" *8 

Non è necessario far seguire l'istruzione 
né da END né da eventuali RETURN o 
altro. N calcolatore* infatti, dopo aver 
caricato il nuovo programma passerà 
ad eseguire l'istruzione indicata dal 
puntatore apposito, settato dal pro- 
gramma “caricatore”, e proseguirà 
quindi normalmente. 

Nel caso invece In cui si desideri carica- 
re da programma file dati o routine A5- 
SEMBLY direttamente nella zona loro 
destinata* tramite Le Istruzioni già viste* 
non sarà necessario settare puntatori* 
dal momento che la zona di memoria in 
cui il programma va caricato viene spe- 
cificata direttamente all'intemo del file 
stesso. 

H caricamento, però, presenta lo sgra- 
devole inconveniente di azzerare ogni 
volta II puntatore alia riga BASIC cor- 
rente da eseguire. Ciò significa che do- 
po l'esecuzione di una Istruzione del ti- 
po 

LOAD"PROV A"*8, 1 

Il programma BASIC che la contiene 
viene eseguito da capo senza però che 
le sue variabili vengano azzerate (a me- 
no che contenga una esplicita Istruzione 
di farlo)* 

Ciò consente di risolvere il nostro picco- 
lo problema. Per comodità e correttez- 
za sarà, innanzi tutto* consigliabile con- 
centrare Il caricamento delle routine o 
dei dati nella parte iniziale del program- 
ma, in modo da non lasciare “aperti" 
eventuali dell FOR/NEXT o chiamate 



a sottoprogrammi. 

Supponendo di dover caricare tre file, 
chiamati “PROVA 1\ “PRGVA2" e 
“PROVA3", aleremo la seguente serie 
di istruzioni, premettendole a tutte le al- 
tre: 

11FFL - OTHENFL - l:LOAD -PRO- 
VA 1 ■ 8 I 

2IFFL » 1THENFL - 2:LOAD “PRO 
VA2", 8, 1 

31FFL - 2THENFL - 3;LOAD “PRO- 
VA3\ 8, 1 

La numerazione del programma effetti* 
vo può partire da 4, Vediamo cosa suc- 
cede al momento di eseguire il nostro 
programma: dopo averlo mandato in 
esecuzione con una normale Istruzione 
RUM il contenuto della variabile FL è 
uguale a zero; Jl test di riga l dà quindi 
risultato positivo e, dopo aver posto la 
variabile suddetta uguale a 1, viene ca- 
ricato il primo file. 

Al termine delfoperazlone il puntatore 
alla successiva riga BASIC indica nuo- 
vamente la riga 1, Questa volta, però, 
la variabile FL non è più nulla e quindi 
si passa ad eseguire la riga 2, dato che 
Il test delia 2 è negativo. Sari ora inve- 
ce positivo 11 test contenuto In riga 2 e 
si provveder^, dì conseguenza, ad ag- 
giornare la variabile FL ed a caricare il 
secondo file. Analogamente si riciclerà 
alla prima riga, il cui test darà ancora 
esito negativo, cosi pure II test di riga 
2 (FL è ora uguale a 31 e si passerà 
quindi ad eseguire la riga 3, il cui test 
& positivo. 

Dopo aver eguagliato a quattro li valore 
della variabile FL, e caricato il terzo file. 
Il calcolatore si accinge ad eseguire, per 
la quarta volta, La prima riga del nostro 
programma. Dato il valore della variati- 
le FL, tutti i test delle prime tre righe 
risulteranno ora negativi e quindi verrà 
iniziata V esecuzione della riga successi- 
va dei programma effettivo (con un va- 
lore della variabile FL uguale a 4, non 
a zero). 

Il primo programmo ASSEMBLY che 
vedremo consentirà, appunto, di trasfe- 
rire nelle zone di memoria loro destina- 
te delle routine caricate in un'area tam- 
pone da un programma “chiamante", 
avente questo solo scopo e che si pre- 
murerà quindi di caricare 11 programma 
effettivo che ne farà uso. 

0 truferlttsato 41 blocchi 
di dati da 256 elmetti 

Il primo programma ASSEMBLY che 
vedremo in questa puntata ci consenti- 
rà di trasferire blocchi di dati di dlmen 
sioni specificate, a patto che esse siano 
multipli Interi di 256. Come abbiamo 
visto nei numeri scorsi, La parola di me- 
moria del microprocessore 6502, di cui 
il Commodore 64 dispone, ha una lun- 
ghezza di otto bit, che consentono di 
rappresentare. In formato binario, tutti 

1 numeri decimali compresi tra 0 e 255. 
Questa limitazione si applica, natural- 
mente, anche a quei particolari registri 


del nostro microprocessore che è possi 
bile utilizzare come contatori. E per 
questa ragione che la maggior parte 
delle funzioni grafiche, sonore o gestio- 
nali del nostro calcolatore è pensata in 
termini di blocchi di 256 locazioni o 
multipli e sottomultipli di essi. Cosi ab- 
biamo visto come gli sprite occupino 
blocchi di 64 celle di memoria (256/4), 
l ‘ultima delle quali ha funzioni semplice 
mente di “arrotonda mento". La stessa 
memoria di schermo, pur essendo com- 
posta da sole mille locazioni (25 righe 
per 40 colonne), deve iniziare a multipli 
interi di 1024 (256x4), destinando le 
ultime sette locazioni del proprio blocco 
da 1Kbyte ai puntatori alla forma degli 
sprite. Analogamente la memoria carat- 
tere deve occupare blocchi da 2Kbyte 
(2048 locazioni, 256x8) e deve quindi 
Iniziare In locazioni che siano multipli 
Interi e pari di 2048. Le stesse scherma- 
te ad alta risoluzione, che occupano 
8Kbyte (8192 byte, 256x32), più le mil- 
le locazioni della memoria di schermo, 
che vengono utilizzate in formato multi- 
colore per specificarne i colori ausiliari I, 
devono iniziare a multipli pari ed interi 
di 8192. 

L'aspetto interessante del problema è 
però rappresentato non tanto dagli indi- 
rizzi a partire da cui è necessario imma- 
gazzinare i dati suddetti, quanto dalle 
dimensioni dei blocchi di dati stessi, tut- 
te multiple di 256 (nel caso degli sprite, 
supponendo che essi occupino loca- 
zioni di memoria consecutive, è molto 
più pratico, quando il loro numero sia 
Inferiore a quattro, leggere diretta- 
mente i numeri decimali che ne defini- 
scono La forma da frasi DATA, piuttosto 


che caricarli da nastro). 

Ci serviremo di questo particolare per 
realizzare 11 nostro programma, che 
consentirà quindi di trasferire gruppi di 
dati a blocchi di 256. Prima di affronta- 
re i particolari costruttivi dei program- 
ma vediamone alcune caratteristiche. 
Una prima spiacevole caratteristica è 
data dalla sua non rllocabilità. Ciò signi- 
fica, semplicemente, che nel caso in cui 
desiderassimo porre II nostro program- 
ma ASSEMBLY in una parte della me- 
moria diversa da quella In cui Lo abbia- 
mo originariamente localizzato non sa- 
rebbe sufficiente trasferirne semplice- 
mente, tramite programma assemblato- 
re, li codice nella nuova posizione, ma 
si renderebbero anche necessarie alcu- 
ne modifiche ad indirizzi di istruzioni che 
compongono il programma. 

Ciò è dovuto all'uso di istruzioni in for- 
mato di indirizzamento assoluto riguar- 
danti locazioni che fanno parte del pro- 
gramma ed II cui indirizzo dipende quin- 
di dalla posizione dello stesso program- 
ma. 

Una seconda caratteristica è data dal- 
l' ordine in cui vengono trasferiti i dati. 
Contrariamente a quanto visto per la 
funzione di trasferimento di cui dispone 
“Supermonltor", Il nostro programma 
effettua la rilevazione delle celle deside- 
rate a partire da quella di indirizzo infe- 
riore. Ciò, naturalmente, non provoca 
alcun inconveniente nel caso In cui 
l'area da cui si desidera prelevare i dati 
e quella in cui si desidera riporli non 
coincidono nemmeno parzialmente. Nel 
caso Invece in cui alcune locazioni del 
blocco di partenza siano destinate ad 
ospitare ! dati suddetti anche ad opera- 


,A COOOLDY #$00 
.A C002 LDX #$04 


.A CO04 LDA $8000, Y 

.A C0G7 STA $6000, Y 

.ACOOAINY 
.ACOOB BNE $CO04 

,À SCOOD INC $C006 

.A C010 INC $CQ09 

.A C013 DEX 

.A 0)14 BNE $CQ04 
A 0016 RTS 


azzera il registro Y 

;carica nel registro X il numero del blocchi da 256 
elementi che si desidera trasferire (nel nostro caso 
quattro : 4x256 * 1 024» 1 K byte) 

;si carica in accumulatore il contenuto della cella 
avente Indirizzo pari a 8000+ Y; 

8000 rappresenta la codifica esade cimale 
dell'indirizzo iniziale del blocco di dati da trasferire 
;11 contenuto dell'accumulatore viene trasferito 
nella locazione avente Indirizzo pari a 6000+Y 
6000 rappresenta la codifica esadecimale dell 'in- 
dirizzo iniziale dell'area destinata ad ospitare l dati 
che si desidera trasferire 

; viene incrementato di uno il contenuto del registro 
Y 

:neì caso In cui il flag 2 sia diverso da 1 (cioè 
l'ultima operazione non ha avuto come risultato 
zero) si ricicla all'Istruzione avente l'Indirizzo speci- 
ficato 

; vie ne incrementato 11 contenuto della cella di 
indirizzo esadecimale C006 (contenente 11 byte più 
significativo dell 'Indirizzo Iniziale del blocco di dati 
da trasferire) 

; viene incrementato il contenuto della cella 
corrispondente al byte più significativo dell'indiriz- 
zo di base del nuovo blocco di dati 
; viene decrementato di uno II contenuto del regi- 
stro X 


zione conclusa, il trasferimento avverrà 
senza alcun inconveniente quando cid 
avvenga nel verso decrescente degli In- 
dirizzi. L'operazione risulterà invece er- 
rata per trasferimenti in senso oppo- 
sto. 

Un ultimo particolare: per ragioni di ve- 
locità e trasparenza d'uso della routine 
si è preferito rinunciare alla lettura degli 
Indirizzi di partenza e di arrivo, oltre al 
numero di blocchi che si desidera trasfe- 
rire da locazioni convenute. Tali valori 
vanno quindi inseriti, tramite istruzioni 
POKE, nelle locazioni del programma 
destinate ad ospitarli PRIMA dell'ese- 
cuzione della routine e, dato che essi 
vengono modificati nei corso deiresecu- 
zione stessa, vanno specificati ogni vol- 
ta. anche nel caso In cui uno o più di 
essi rimanga invariato tra due esecuzio- 
ni successive. Ma vediamo nel particola- 
ri il nostro programma (vedi tab. U. che 
registreremo a partire dalla locazione 
49152 (sarà quindi necessario far uso 
della versione rllocata di M Su pernioni- 
tor"). 


Vediamo di illustrare più dettagliata- 
mente il funzionamento de! program- 
ma. 

La prima istruzione sì occupa di azzera- 
re il contenuto del registro Y. che servi- 
rà da contatore (internamente ai blocchi 
di 256 elementi) per il trasferimento dei 
dati. Perché lo si azzera? Questo regi- 
stro viene incrementato dopo il trasferi- 
mento di ogni cella; questo significa che 
dopo la prima operazione la configura- 
zione decimale del suo contenuto passa 
da 0 a 1. Dopo 256 operazioni di trasfe- 
rimento la sua configurazione binarla 
passerà da 

illuni 

a 

00000000 

il suo contenuto, cioè, sarà nuovamente 
giunto a zero. Un test su questa configu- 
razione consentirà quindi di stabilire se 
sia stato trasferito un intero blocco di 
dati da 256 elementi. Il numero di tali 
blocchi che si desidera trasferire è spe- 
cificato dall'Istruzione seguente, che ca- 
rica nel registro X appunto il numero di 
blocchi da rllocare. Questa Istruzione ha 
una lunghezza di due byte, il primo dei 
quali (In 49154) ospita il codice operati- 
vo della istruzione LDX In formato di 
Indirizzamento immediato, mentre II se- 
condo è destinato a contenere la confi- 
gurazione corrispondente al numero dì 
blocchi che si desidera trasferire. Que- 
sta locazione (49155) rappresenta uno 
dei valori che devono essere settati pri- 
ma di ogni esecuzione delia nostra routi- 
ne (anche nel caso In cui si sapesse, a 
priori, di dover trasferire blocchi di dati 
sempre della stessa lunghezza, sarebbe 
necessario ripristinare il contenuto di 
questa locazione prima di ogni esecuzio- 


ne, poiché esso viene alterato, come ve- 
dremo. nel corso della stessa). Per farlo 
è sufficiente utilizzare l'istruzione BA- 
SIC 

POKE49155.NB 

dove la variabile NB corrisponderà, di 
volta in volta, al numero di blocchi volu- 
ti, Il fatto che questo valore debba esse- 
re contenuto in una parola di memoria 
da 8 bit cl consente di stabilire l'ampiez- 
za massima del trasferimenti effettuabi- 
li, che sarà, ovviamente, pari a 255 
blocchi da 256 elementi, vale a dire 
256x255-65280; dì gran lunga supe- 
riore alle nostre esigenze. 

La terza istruzione del nostro program- 
ma utilizza il formato di indirizzamento 
noto come ''indicizzato da registro*, ot- 
tenuto sommando ad un indirizzo di ba- 
se (contenuto negli ultimi due byte del 
tre che l'Istruzione occupa) il contenuto 
di un registro che viene specificato dal 
codice operativo contenuto nel primo 
byte de iristr azione. Nel nostro caso 11 
registro in questione è il registro Y, 
mentre l'Indirizzo di base ha codifica 
(esadecimale) 58000, pari a 32768 de- 
cimale, Il contenuto della locazione cor- 
rispondente all'indirizzo di base, cui vie- 
ne sommato il valore attuale del regi- 
stro Y. viene caricato in accumulatore. 
Le due locazioni contenenti l'indirizzo 
di base (nel nostro caso 49157 e 
49158) andranno settate prima di ogni 
operazione di trasferimento, in base al- 
l'Indirizzo iniziale del blocco di dati che 
si desidera trasferire. Tale indirizzo an- 
drà suddiviso in byte più significativo 
(pari a indir izze/ 2 56), che andrà Inseri- 
to In 49158, e byte meno significativo 
(Il resto della operazione precedente), 
da Inserire in 49157. Le due Istruzioni 
necessarie per questo scopo sono le se- 
guenti (supponendo di aver indicato con 
la variabile IB l'indirizzo di base): 

POKE49158, lNT(iB/256) 

POKE49157, IB- f NT UB / 256)*256 

L'istruzione successiva trasferisce il 
contenuto dell'accumulatore nella loca- 


zione avente indirizzo pari a quello Ini- 
ziale della nuova area destinata ad ospi- 
tare I dati, cui viene sommato II conte- 
nuto del registro Y. 

Il formato è analogo a quello del l'istru- 
zione precedente: tre byte con Indirizza- 
mento indicizzato da registro; il primo 
byte contiene il codice operativo deh 
l'Istruzione (che specifica il verso del 
trasferimento ed II registro coinvolto), 
mentre I byte seguenti contengono l'In- 
dirizzo suddetto nel solito formato “byte 
- meno - slgniflcativo/byte - più - signifi- 
cativo", Nel nostro caso II byte meno 
significativo andrà, di volta In volta, In- 
serito nella locazione di indirizzo deci- 
male 49160, mentre il più significativo 
verrà ospitato dalla locazione seguente. 
Per questa Istruzione valgono tutte le 
considerazioni fatte per la precedente. 
Notate come gli indirizzi delle locazioni 
suddette siano caratteristici della forma 
attuale assunta dal nostro programma; 
nel caso, quindi, in cui si desideri rilocar- 
ne Il codice sarà necessario modificare 
di conseguenza anche gli Indirizzi in cui 
caricare gli Indirizzi di base dell'area 
sorgente e della destinazione. Ne) caso 
In cui si trasferisca II programma sud- 
detto da 49152 a 955 sarà necessario 
sottrarre ad ogni Indirizzo lo scarto tra 
i due indirizzi. Pertanto la locazione 
49155, che, come abbiamo visto, con- 
tiene il numero di blocchi che si deside- 
ra trasferire, diverrà La 49155 - 
(49152-955) « 958 e cosi via per tutte 
le altre locazioni. 

Dopo le due istruzioni precedenti II con- 
tenuto del registro Y viene Incrementa- 
to e viene quindi eseguito un test per 
stabilire se l'istruzione In questione ab- 
bia provocato l'attivazione del bit Z del 
registro dei flag, che segnala appunto 
se una operazione ha risultato nullo. In 
caso negativo il trasferimento del bloc- 
co da 256 dati non è stato portato a 
termine, pertanto si ricicla alla istruzio- 
ne di caricamento in accumulatore del 
dato da trasferire. Il formato di questa 
istruzione, pur specificando l'indirizzo 
dell'Istruzione a cui si desidera riddare 
se il test ha esito negativo, utilizza un 
ulteriore formato di indirizzamento, 
chiamato "relativo", che viene adottato 
ogni volta In cui la destinazione dì un 
salto logico sì trovi allìnterno di un bloc- 
co da 256 caratteri, centrato sulla loca- 
zione successiva a quella contenente 
l'istruzione di test stessa. Infatti, poiché 
lo spostamento pud essere positivo o 
negativo (cioè un salto verso una Istru- 
zione successiva o precedente quella at- 
tuale). I valori numerici compresi tra 0 
e 128 indicano una diramazione diretta, 
mentre quelli compresi tra 129 e 255 
una diramazione inversa, la cui ampiez- 
za è data dal complemento a 255 del 
valore specificalo. Nel nostro caso lo 
scarto tra la locazione contenente II se- 
condo byte dell'Istruzione BN£ SC004 
e la destinazione della diramazione stes- 
sa è pari a 49164-49156-8, Trattan- 
dosi di un salto "all 'indietro", cioè di 
una diramazione inversa, il valore da 
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specificare sari pad a 255-8-247 

i%E7). 

Non è necessario, comunque, che vi 
preoccupiate di calcolare le entità delle 
diramazoni: il nostro programma as- 
semblatore provvederà a farlo per voi; 
sarà sufficiente Indicare I 1 indirizzo della 
destinazione. 

Nel caso in cui 11 test dell'Istruzione pre- 
cedente abbia avuto esito positivo, cioè 
un intero blocco da 256 dati sla stato 
trasferito, sarà necessario aggiornare II 
valore degli Indirizzi di base, sla del- 
l'area dati da cui 1 dati vengono trasferi- 
ti che della loro destinazione. Notate 
come II contenuto de) registro-contatore 
Y sia già posto al valore opportuno 
(cioè zero). 

Questa operazione di incremento del 
byte più significativo del due indirizzi 
suddetti rappresenta un altro punto cri- 
tico del nostro programma. 

Questi Indirizzi sono Infatti, come abbia- 
mo visto, caratteristici del programma, 

[ valori da Inserire nel codice A $$EM- 
BLY della nostra routine dipenderanno 
quindi dalla posizione In memoria che 
essa occupa. In caso di rllocazione val- 
gono di conseguenza tutte le considera- 
zioni fatte In precedenza. 

Queste due Istruzioni (entrambe a tre 
byte; gli Indirizzi andranno perciò suddi- 
visi nel modo consueto) fanno sì che 11 
programma non sia Immediatamente ri- 
locabite tramite una semplice operazio- 
ne di trasferimento del codice ASSEM- 
BLA che lo compone. Gli Indirizzi conte- 
nuti In esse dovranno sempre essere 
"corretti 1 *, dopo aver trasferito 11 pro- 
gramma nella nuova posizione, In modo 
da puntare all'ultimo byte delle Istruzio- 
ni 

LDA {Indirizzo Iniziale, Y 


STA {Indirizzo finale, Y 

Dopo aver aggiornato I due Indirizzi di 
base, In modo che puntino al successivo 
blocco da 256 Locazioni, è necessario 
d ec rem en tare li contenuto del registro 
X, che, ricorderete, ospitava il numero 
del blocchi da 256 che si voleva trasferi- 
re, Viene quindi eseguito un nuovo test 
sul contenuto del bit 2 del registro di 
flag. Nel caso, infatti, In cui l'operazione 
precedente abbia azzerato li contenuto 
del registro X l'operazione di trasferi- 
mento si può considerare conclusa: il 
numero prefissato di blocchi da 256 lo- 
cazioni che si desiderava rilocare è stato 
trasferito. Proseguendo in sequenza si 
Incontra la consueta istruzione RTS 
(ReTum from Subroutine, rientro da 
sottoprogramma), che consente di tor- 
nare In ambiente BASIC. 

In caso contrario si ricicla alla istruzione 
di lettura delia nuova locazione da tra- 
sferire con il contatore Y azzerato ed il 
contenuto del registro X indicante II nu- 
mero di blocchi rimanenti da trasferire. 
Anche In questo caso, come in quello 


già visto, il formato deiristruzlone è re- 
lativo. L'entità del salto, in questo caso, 
è pari a 49173-49156-17 e, trattan- 
dosi di diramazione Inversa, Il valore 
Indicato nel secondo byte dell 'istruzione 
sarà. In formato decimale, 
255-17-238 (SEE). 

Supponendo quindi di dover trasferire 
un blocco di dati di lunghezza pari a 
2Kbyte (2048 elementi) da 32768 In 
57344, le istruzioni necessarie sarebbe- 
ro le seguenti 

POKE49155, 2048/256 
P0KE49157, 0:PQKE49158. 128 
POKE49160, 0:PQKE491Ó1, 224 
SYS491S2 

L'esempio precedente potrebbe riguar- 
dare il trasferimento del dati necessari 
a ndefinire 11 set di caratteri di cui il 
calcolatore dispone, caricati da nastro 
o da disco tramite li metodo rapido visto 
nel primo paragrafo e registrati In origi- 
ne a partire dalla locazione 32768. 
Ovviamente, nel caso In cui II program- 
ma destinato ad ospitare 1 dati abbia 
dimensioni tali da interferire con l'area 
"tampone" indicata, Je operazioni di ca- 
ricamento e trasferimento dovrebbero 
venire svolte da un programma "carica- 
tore", che si premurerebbe, quindi, di 
richiamare, in overlay, i! programma 
utente. 

Usa roetlaa par U trwferlaeato 
di blocchi di hufkini prefìtta- 
ti m diversa da 2U Iocuìmì 

li programma ASSEMBLY presentato 
nel paragrafo precedente consentiva di 


trasferire blocchi di dati di lunghezza 
voluta, a patto che questa fosse multi- 
pla di 256. Può accadere, per svariate 
ragioni, che l'ordine del trasferimento 
dei dati, pur essendo sequenziale, non 
possa prescindere dalle caratteristiche 
intrinseche del dati che si desidera tra- 
sferire. Ad esemplo, dovendo trasferire 
il contenuto dell area dati che rappre- 
senta la memoria di schermo o La me- 
moria colore, in modo da effettuarne lo 
scroil ing in una determinata direzione, 
non è possibile utilizzare blocchi da 256 
dati, ma sarà necessario servirsi di bloc- 
chi di dimensioni inferiori. 

La gestione della memoria grafica del 
Commodore 64 presenta una ulteriore 
particolarità: non ci si deve occupare 
solo di operare sul contenuto della me- 
moria di schermo, come per ì vecchi 
calcolatori della lìnea Commodore (l 
Pet 2001, ì CBM 3032 e 4032), per l 
quali, essendo monocromatici, l'argo- 
mento grafica si esauriva con la cono- 
scenza dell'Indirizzo di base della me- 
moria destinata allo schermo (32768, 
detto per inciso). J nuovi H home compu- 
ter" della Commodore, I VIC 20, i C64 
e C64 plus, IJ CI 6, dispongono di carat- 
teristiche grafiche più evolute e, oltre a 
poter spostare la memoria destinata al- 
io schermo Internamente allo spazio di 
memoria disponibile, prevedono anche 
la possibilità di gestire formati di grafica 
multicolore. Ciò significa, ovviamente, 
che dovremo occuparci anche del tra- 
sferimento della memoria colore del no- 
stro calcolatore, se non vorremo veder 
le nostre schermate cambiare colore nel 
bel mezzo dello scrolllng. 


.AC000LDA #$27 


.A C002 STA $4E 

,A C0O4 LDA # $04 
,A C0G6 STA $4F 
.A C008 LDA # $27 

.A CGOA STA $52 
.A COOC LDA #$D8 
.ACOOE STA $53 
,A COIO LDA #$FF 

.A C012 STA $50 
.AC014 LDA #$03 
.A CQ16 STA $51 
.AC018 LDA #$FF 

.A C01A STA $57 
.AC01C LDA #$D7 
A CO I E STA $58 
.AC020LDX #$18 

.AC022LDY #$28 

.A C024 LDA ($4E),Y 


Tabelle 1 


; viene caricato In accumulatore il valore corrispon- 
dente al byte meno significativo dell 'Indi rizzo di 
base Iniziale per la memoria di schermo 
;ll contenuto dell'accumulatore viene registrato 
nella Locazione 78 di pagina 0. 

;byte più significativo dell'indirizzo suddetto 
;ACCUM — 79 

;byte meno significativo dell 1 Indirizzo di base Lnfzia- 
le della memoria colore 
;ACCUM — 82 

;byte più significativo dell'indirizzo precedente 
;ACCUM — 83 

;byte meno significativo dell'indirizzo di base della 
destinazione della memoria di schermo 
;ACOJM - 80 

;byte più significativo dello stesso Indirizzo 
jACCUM — 81 

;byte meno significativo dell'Indirizzo di base della 
destinazione della memoria colore 
;ACCUM - 87 

;byte più significativo dell indirizzo in questione 
;ACCUM 88 

; viene caricato nel regista X il numero delle righe 
che si desidera trasferire ($18 - # 24) 

;nel registro Y si carica il numero di caratteri che 
compongono ciascuna riga 
viene caricato in accumulatore 11 contenuto della 
cella il cui Indirizzo è registrato nella coppia di 
byte 78/79 (In cu) 78 rappresenta 11 byte meno 
significativo) a cui viene sommato li contenuto at- 
tuale del registro Y t . 
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A C026 STA ($501Y 

.AC02 8 LDA ($52}. Y 
,ACQ2A$TA($57),Y 

A C02C DEY 
A C02D BNE $C024 

AC02FCLC 
.A C030 LDA $4 E 

ACD32ADC #$28 


.A C034 STA $4E 

A CQ36 LDA $00 
A C038 ADC $4F 


A C03A STA $4F 


.AC03C CLC 
A C03D LDA $50 
AC03FADC #$28 
.AC041 STA $50 
.A C043LDA #$00 
.A G045 ADC $51 
.A C047 STA $51 
A C049 CLC 
A C04ALDA $52 
AC04CADC #$28 
A C04E STA $52 
.A COSO LDA # $00 
A C052 ADC $53 
A C054 STA $53 
.A C056 CLC 
A 0057 LDA $57 
.A C059ADC #$28 
.A C05B STA $57 
A COSO LDA #$00 
.AC05F ADC $58 
.A C061 STA $58 
AC063DEX 

.A C064 BNE $0022 


.A C066 RTS 


;ll contenuto dell' accumulatore viene trasferito 
nella locazione avente indirizzo corrispondente al 
contenuto della coppia di locazioni 80/81, cui vie- 
ne sommato il registro contatore Y 
;ll contenuto della locazione avente indirizzo pari 
alla coppia di byte 82/83, più il registro Y, viene 
caricato In accumulatore 

;ll contenuto dell'accumulatore viene trasferito 
nella locazione Li cui indirizzo è registrato nella 
coppia 87/88 ed a cui viene sommato 11 valore 
attinie del registro Y 

M contenuto del registro Y viene decrementato di 
una unità 

;se il contenuto del registro Y è diverso da zero 
(cioè il bit Z del registro di flag T dopo l’operazione 
precedente, è nullo) si ricicla all 'Istruzione corri- 
spondente all'IndlrLzzo specificato 
; viene azzerato il bit di riporto del registro di flag 
;vlene trasferito in accumulatore il contenuto at- 
tuale della locazione 78 

;vlene effettuata la somma con riporto del conte- 
nuto dell' accumulatore più il valore numerico indi- 
cato ($28 - #40), spostando l'Indirizzo di base 
di una riga verso il basso (nel caso di scrolling 
dall'alto in basso sarà necessario, oltre che cam- 
biare gli Indirizzi di baie iniziale e finale per en- 
trambe le memorie, sottrarre tale valore numerico 
invece di sommarlo) 

;il contenuto dell 'accumulatore viene reim magai* 
zlnato nella locazione 78 
;st azzera l'accumulatore 
;aU 'accumulatore si aggiunge il contenuto della 
locazione 79, cioè 11 byte più significativo dell'indi- 
rizzo di base Iniziale della memoria di schermo 
;fL risultato dell'operazione precedente (compreso 
LI riporto della somma precedente, che non è stato 
azzerato) viene registrato nella locazione 79. Le 
sei istruzioni precedenti. Insieme a questa stessa, 
rappresentano un esemplo di somma a sedici bit 
;Carry — “0" 

ACCUM *- [80] 

; ACCUM +40 - ACCUM 
;ACCUM - [80] 

■ACCUM "0* 

; ACCUM + [8 1 ] +Ca rry - ACCUM 
lACCUM - [81] 

;Cnrry — “0" 

;ACCUM — [82] 

: ACCUM +40 - ACCUM 
; ACCUM — [82] 

;ACCUM — *0’ 

; ACCU M +[83] + Curry — ACCUM 
;ACCUM — [83] 

;Carry — “0" 

;ACCUM — [87] 

;ACCUM+40 — ACCUM 
; ACCUM - [87] 

‘ACCUM “0" 

■ ACCUM + [88] +Carry — ACCUM 
; ACCUM — [88] 

;il contenuto del registro X viene decrementato di 
una unità 

■nel caso In cui il contenuto del registro X sìa diver- 
so da zero {bit Z del registro dì flag disattivato}, si 
ricicla a partire dalla Istruzione di inizia lizzatone 
del registro Y a 40 
;sl rientra In ambiente BASIC 


L'esempio che mostreremo in questo 
paragrafo opererà lo scrolling nella di- 
rezione consueta (dal basso verso l'al- 
to), una riga di schermo ad ogni esecu- 


zione della nostra subroutlne ASSEM- 
BLY. Le modifiche da apportare ai pro- 
gramma per ottenere lo scrolling nella 
direzione opposta consistono, semplice- 


mente, In una diversa scelta deH'indiriz- 
zo di base Iniziale e dell'Indirizzo di base 
finale, oltre che in un ciclo che provve- 
da a decrementare gii indirizzi Invece di 
incrementarli, come nel programma se- 
guente 


ladlrlntMato ladiretto, 
lidldusto Indiretto, 
Indiretto ladlclizato e — 


Commendarne diffusamente anche il li- 
stato di questo secondo programma 
ASSEMBLY, Il che ci permetterà di in- 

ti-riftiirre nnrhe minui formati di Indirli» 


zamento. 

Le prime sedici Istruzioni del program- 
ma sono destinate alt'Lniziafìzzazlone 
delle otto locazioni di pagina zero desti- 
nate a contenere (suddivisi In byte più 
e meno significativo) gli indirizzi di base 
Iniziali e finali per le due zone di memo- 
ria interessate dal trasferimento: la me- 
moria di schermo e la memoria colore. 
Le prime quattro Istruzioni trasferisco- 
no LI byte meno significativo (39) dell'in- 
dirizzo di partenza della memoria di 
schermo in 78 ed il byte più significativo 
(4) In 79, L'Indirizzo di base della me- 
moria di schermo è quindi dato da 
4'256+39-1063. Dato che I registri 
contatori da noi utilizzati puntano esat- 
tamente al di sotto del blocco da trasfe- 
rire, ciò farà si che si cominci col trasfe- 
rire la seconda riga della memoria di 
schermo nella sua configurazione attua- 
le. 


Le successive quattro istruzioni trasferi- 
scono l'indirizzo di base Iniziale della 
memoria colore nella coppia di locazioni 
di pagina zero 82/83 (Il byte meno si- 
gnificativo verrà ospitato da B2L Notate 
come ciascun indirizzo venga registrato 
In una coppia di byte consecutivi; ciò d 
permetterà di considerare le singole 
coppie di locazioni come altrettanti Indi- 
rizzi di locazioni prefissate, Leggibili con 
un formato di indirizzamento che non 
abbiamo ancora Introdotto: i'tndlrizza- 
mento indiretto. 

Ciò equivale ad avere l'indirizzo di una 
determinata locazione posto In una po- 
sizione di memoria convenuta. Per usa- 
re un altro termine, mutuato dalla ge- 
stione del sistemi operativi, dò significa 
utilizzare una tecnica a “mailbox , cioè 
a “caselle postali", in cui determinate 
locazioni svolgono U ruolo di tramite di 
informazioni tra diverse routine o tra 
parti di una stessa routine. Analoga- 
mente agli agenti dei racconti di spio- 
naggio che lasciano l microfilm in un 
nascondiglio convenuto perché un cor- 
riere passi poi a ritirarli, o ad una fami- 
glia in cui ciascun componente sa dove 
guardare nel caso in cui sia sprovvisto 
di chiavi e non cl sia nessuno in casa 
(tipicamente, la chiave S sotto lo stuolno 
o dietro il vaso); cosi nei nostro pro- 
gramma gli indirizzi di cui la routine de- 
ve servirsi sono In locazioni prefissate e 
di facile accesso (in pagina zero, la qual 
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cosa, come abbiamo già visto, consento 
una maggior velocità di elaborazione; 
determinante net caso in cut t dati da 
trattare siano molti ed abbiano diretta- 
mente a che fare con La gestione della 
grafica del calcolatore). 

Le locazioni di pagina zero utilizzate de- 
vono essere, come detto, consecutive. 
Dò d permetterebbe di disporre di due 
soli indirizzi, nelle locazioni di pagina 
zero Inutilizzate, citate nel numero 
scorso: 251/252 e 253/254. 

Il Commodore 64, però, dispone In pa- 
gina zero di due aree “serateh", il cui 
contenuto, cioè, è variabile e, per così 
dire, “volatile". Non Ha quindi impor- 
tanza se vengono apportati cambiamen- 
ti al loro contenuto, poiché il loro signifi- 
cato dipende dalla routine di sistema 
operativo che ne fa uso, sia come me- 
moria “tampone" sla come area di lavo- 
ro temporanea, per ospitare operandi 
o dati provenienti da puntatori ed in 
corso di trasferimento. Le due aree si 
trovano in 78-83 ed In 87*%. 

La prima delle due è destinata agli usi 
più disparati, mentre La seconda è riser- 
vata come area dJ lavoro per operazioni 
numeriche. Entrambe possono essere 
comunque utilizzate, a patto che il loro 
contenuto venga usato direttamente nel 
corso della stessa subroutine, poiché, 
nel caso In cui fra una routine che impie- 
ga le locazioni suddette e la successiva 
vengano utilizzate istruzioni BASIC che 
comportano l'uso delle aree In questio- 
ne, Il loro contenuto verrebbe, Inevita- 
bilmente, alterato; non à possibile ripie- 
gare sulle meno veloci, ma più affidabili, 
Locazioni al di fuori della pagina zero, 
poiché Li microprocessore 6502 non ha 
una capacità di indirizzamento indiretto 
completamente generale, ma limita il 
campo indirizzo agli otto bit necessari 
per accedere alla pagina zero. 

Le ultime otto Istruzioni di questo primo 
blocco inlzlaJlzzano gli indirizzi di base 
finali per le due memorie coinvolte nel- 
l'operazione. 

L'Indirizzo di base della memoria di 
schermo viene Inlzlalizzato a 
3*256+255-1023 (esattamente al di 
sotto della memoria di schermo visibile) 
e posto in 80/81, e la memoria colore 
a 215*256+255-55295 (40 byte, cioè 
un'Intera riga al di sotto dell'Indirizzo di 
base iniziale 216*256+39-55335), In 


87/88. 

Le due istruzioni successive Inlziallzza- 
no i registri contatori X e Y, destinati a 
contenere, rispettivamente, il numero 
di blocchi (righe) da trasferire e La lun- 
ghezza di ciascun blocco. 

Come potete notare dal listato, mentre 
Il registro Y è stato Inlzlalizzato alla ef- 
fettiva lunghezza delle righe di schermo. 
Il numero di righe non corrisponde al 
totale di quelle visualizzate (25). La tec- 
nica dello scrolling consiste appunto, In 
questo caso, nel sovrapporre il contenu- 
to delle ultime ventiquattro righe sulle 
prime ventiquattro. 

Le quattro Istruzioni che seguono utiliz- 
zano l p Indirizzamento indiretto nella sua 



forma indicizzata dal registro. È neces- 
saria una piccola precisazione, per evi- 
tare r In sorgere di un banale equivoco, 
molto diffuso in campo programmati- 
vi 

E necessario distinguere tra indirizza- 
mento indicizzato indiretto ed indiretto 
Indicizzato. Il primo è quello da noi qui 
utilizzato e consiste nel reperire l'indiriz- 
zo di base di una determinata area dati 
In una coppia di locazioni di pagina zero 
(indirizzamento indiretto) e sommarvi 
un indice ricavabile da un registro (indi- 
rizzamento indicizzato). 

Il secondo formato consiste nel somma- 
re il valore dell'indice ad un Indirizzo di 
base che fa riferimento all' area di pagi- 
na zero della “casella postale", conte- 
nente gli Indirizzi effettivi desiderati; ciò 
equivale ad una Indicizzazione seguita 
da una Indire zlone. 

Le quattro operazioni In questione con- 
sistono nel leggere 11 contenuto della ca- 
sella Il cui indirizzo è ottenuto somman- 
do ad un Indirizzo di base, specificato 
nella coppia di locaLiioni 78/79 in pagi- 
na zero (per indicare le quali è sufficien- 
te specificare l’Indirizzo del byte meno 
significativo), ti contenuto del registro 
contatore Y e nel trasferirlo In quella ti 
cui Indirizzo è ricavato con analogo 
meccanismo da il' indirizzo di base finale 
registrato in 80/81. Le seconde due 
istruzioni svolgono compiti analoghi per 
le locazioni della memoria colore. 

A3 termine delle operazioni precedenti 
viene decre meritato il registro contato- 
re Y e sì esegue un test tendente a 
stabilire se sia stata trasferita un'Intera 
riga. In caso negativo si ricicla a partire 
dalla prima locazione in indirizzamento 
indicizzato Indiretto (o, come dicono al- 
cuni testi, post -Indicizzato). 

Se è stata Invece trasferita un'intera ri- 
ga, si aggiornano I contenuti delle loca- 
zioni di pagina zero che ospitano gli Indi- 
rizzi, ricordando che si tratta di indirizzi 
a 16 bit, composti doé da due byte, con 
tutto quel che ciò comporta per quanto 
riguarda la gestione dei riporti tra II pri- 
mo e il secondo byte. 

Le ventotto istruzioni che seguono ti 
test si possono infatti suddivìdere in 
quattro gruppi, ognuno del quali au- 
menta di quaranta (la lunghezza di una 
riga di schermo) ciascuno degli indirizzi 
di base utilizzati. 

Sinteticamente, ciascun gruppo è com- 
posto dall'azzeramento del bit di riporto 
(Carry) del registro di flag, dalla lettura 
del byte meno significativo dell 'indirizzo 
(contenuto nel primo del due byte di 
ogni coppia), da una istruzione ADC 
(Add with Carry, somma con riporto). 


tra 11 contenuto dell'accumulatore ed ti 
byte meno significativo della cifra esa- 
d ed ma le 40; il contenuto dell'accumu- 
latore viene quindi ritrasferito nella lo- 
cazione di pagina zero destinata a con- 
tenere il byte meno significativo di cia- 
scun indirizzo (eventuali riporti sono 
contenuti nel bit di Carry). 

La seconda serie di operazioni del bloc- 
co di aggiornamento consiste nel som- 
mare al byte più significativo di ciascun 
indirizzo 11 byte più significativo della 
cifra esadeclmale suddetta, cioè zero. 
Questa operazione permette di Incorpo- 
rare nella somma eventuali riporti tra ti 
primo ed 11 secondo byte che compon- 
gono l’Indirizzo. Per farlo viene azzerato 
l'accumulatore e ad esso viene somma- 
to (sempre con riporto) il contenuto del- 
la locazione voluta (indirizzamento “in 
pagina zero"). II risultato viene quindi 
trasferito nella locazione destinata ad 
ospitare II byte più significativo dell'indi- 



rìzzo In questione. 

La serie di operazioni suddette non può 
venire svolta tramite un ciclo, sla per la 
mancanza di un registro da utilizzare 
come contatore (X ed Y sono già impe- 
gnati), sia per la non consecutivltà delle 
locazioni che compongono la '‘mailbox* 
(la coppia 87/87 è separata dalle altre 
dall'area di pagina zero destinata a con- 
tenere I vettori dì salto logico per le fun- 
zioni). 

Le penultime due istruzioni del pro- 
gramma decrementano II registro X (nu- 
mero delie righe da trasferire) ed ese 
guono il consueto test, per stabilire se 
l'operazione è da considerarsi comple- 
tata per tutte le 
atlvo si ridda * 


nega 
a 40 ti r 


già visto 


eglsl 
. In ' 


ì righe volute. In caso 
é alla riga che inlzlalizza 


jlstro Y e si prosegue, come 
i caso contrarlo si rientra in 
ambiente BASIC tramite la consueta 
Istruzione RTS. 


MLX per VIC 20 
e C64 


die J 

trad. < adatt. 
di M* t 

2.0 per C64)e F. 


lìnea rappresenta il checksum e viene vt- 


M LX è un programma che permette 
di Inferire listati In linguaggio mac- 
china esenti in modo assoluto da errori e 
senza la perdita di tempo del dover batte- 
re e controllare lunghe sequenze di Istru- 
zioni DATA. 

Molti dei nostri listati di programmi in 
Linguaggio macchina hanno IL formato 
MLX (Il riconoscete dal fatto che sono 
esclusivamente numerici) e richiedono 
quindi che MLX sia caricato in memoria 
ed eseguito prima della battitura del lista- 
to 

MLX vi chiederà l'Indirizzo della locazio- 
ne di partenza e quello della locazione 
finale del programma da caricare. Questi 
valori sono sempre Indicati nell'articolo 
che accompagna 11 listato. MIX vi segna- 
la automaticamente gli errori di battitura 
MENTRE STATE DIGITANDO IL LI- 
STATO • vi chiede di reinserire la Linea 
errata. L'ultimo numero battuto di ogni 


sualizzato in reverse. 

Sono Inoltre disponibili altri comandi, quali: 
SHIFT-N nuovo Indirizzo: permette di 
cambiare ('Indirizzo della linea che volete 
battere ed è utile nel caso «I inseriscano 
1 listati In più parti. 

5HIFT-D display: lista 1 dati Inseriti tra 
due Indirizzi di Inizio e fine. 

SHIFT-L load: carica un file da nastro o 
SHIFT-S save: salva su nastro o disco un 
file in formato MLX. 

Una volta battuto il listato, e salvatolo 
tramite MLX, si potrà caricare diretta- 
mente Il programma con un'istruzione 
LOAD “nome del flleM.l per 11 registra- 
tore, oppure LOAD "nome del file' ,8,1 
per r unità a dischi, salvo diverse indica- 
zioni date negli articoli corrispondenti ai 
vari programmi. Il programma sarà gene- 
ralmente mandato In esecuzione con una 
SYS (Indirizzo di partenza). 


MLX v*t»Iom por VIC SO 

100 FRI NT" { CLR ){ PUR } * ; CHR $ (142) fCHR$ (8) } 

;rem IBI 

101 POKE70 8 #194; REM DISABILITA, RUN/5TQP 

:rem 144 

no PRINT" fRVS) { 14 SPAZI}" ireffi 117 

120 PRINT" {RV$J {DES }{OFF} [<*>] £{RVS } 

{DESI (DESK 2 SPAZlH<*>HOFFH<*>ì 
t { RVS } £ { R VS } ■ : rem 191 

130 print w 7rvs} {DESI (<G>1(DES} 

C 2 DESI fOFF}£{RVS}É[<*>HOFF} [<*>] 
(RVS) {OFF}" * treni 122 

140 PRINT" { RVS }{ 14 SPAZI}" srem 120 

200 PRINT" { 2 GIU ' } { POR } { BLK } UN PROGRAMMA 
PER VlN-TRODUZIONEf 2 SPAZI }DI ROUT 
I NEI N LINGUAGGIO MACCHINA"; 3 rem 202 
205 PRINT" A PROVA DI ERRORE { 5 GIU'}" 

:rem 226 

210 PRINT"! BLK }{ 4 SU} INDIRIZZO DI PARTBN 
ZA" : INPUTS : F«UF:C$-CHR$ (31+11 9*F ) 

z rem 52 

220 I FS< 2 5 60RS >3276 7THENGOSUB3 0 00 : G0TO2 ! 0 

: rem 2 

225 FRI NT: FRI NT: PRINT SPRINT :rem 123 

230 PRINT" {BLK} { 3 SU}INDIEIZ20 C0NCLUSIV 
O" : INPtJTE : F-1 -F: C$-CHR$ (31+11 9*F} 

;rem 170 

240 I FE< 2 5 60RE> 3 2 7 6 7THENGOSUB3 0 0 0 : GOTO 230 

: rem 234 

250 IFE<STHENPRINTC$; W {RVS } INDIRIZZO CONC 
LO S IVO < INDIR! ZZO DI PARTENZA 
X 3 GIU 1 }"tGOSUBl 000 3 GOTO230 1 rem 27 
260 PRINT: PRINT SPRINT :rera 179 

300 PRINT" {CLR } * ; CHRS 04) t AD "S :rem 56 
310 PRINTRIGHTO ("0000"+MIDS (STR$ (AD) ,2) ,5 
F0Rj«lTO6 :rem 234 

320 GOSUB570;IFN»-lTHENJ-J+N:GOTO320 

: rem 228 

390 IFN--21 TTHEN71 0 *rem 62 

400 IPN--204THEN790 ; rem 64 

410 IFN»-206THENPRINT:PRINT" {GIU 1 } INSERÌ S 
CI UN NUOVO{ 4 SPAZI }iNDI RI Z ZO w ; SINPU 
TZZ ixem 42 


La versione originaria di MLX per C64 
ha subito, dalla prima pubblicazione, di- 
versi ritocchi e miglioramenti, fino alla 
versione 2,0 qui presentata. 

È stato In primo luogo modificato II colore 
di fondo dello schermo e del bordo, in 
modo da risultare meno stancante alla 
vista; sono state ulteriormente perfezio- 
nate le routine In linguaggio macchina di 
salvataggio e caricamento dei program- 
mi; è cambiata la forma del cursore e, 
cosa più Importante, è stato aggiunto un 
tastierino numerico per gli utenti che si 
trovano più a loro agio con una diversa 
disposizione del tasti. 

Oltre a poter usare l soliti tasti numerici, 
sono stati rkJefiniti alcuni tasti alfabetici, 
in modo da generare ugualmente del nu- 
meri 1 tasti rideftnlti sono 1 seguenti; 

U I O 7 8 9 

H J K L diventano 0 4 5 6 

M , . 12 3 

Le persone abituate ad usare tali tastieri* 
ni accresceranno senz'altro, in brevissimo 
tempo, la velocità di battitura dei pro- 
grammi In linguaggio macchina. 


41 5 IFN«-206THENIFZZ<SORZZ>BTHENPRINT" 

{RVS} ESCE DAL CAMPO DI VA-" :rom 150 

41 6 IFN--706THENIFZZ<SORZZ>ETHENPRINT" 
(RVS) LORI INDICATO" :GOSUBl 000 :GOTO410 

:rem 105 

417 I FN ■ - 20 6THENAD =2 Z : PRINT 3 GOTO 3 1 0 

:rem 238 

420 IFNO-1 96THEN4 80 :rem 133 

430 PRINT t INPUT" LI STATO: DA* ; F: PRINT# " 

{ 2 SlN}A"?tINPUTT “ :rem 29 

440 IFF<SORF>EORT<SORT>ETHBNPRlNT" MINIMO" 
|S; " {SIN } , MASSIMO" ;E:GOTO430 ~ 

srero 36 

450 FORI «FTOTSTEP 6 1 PRINT : PRI NTRIGHT6 ( "000 
0"+MID8 (STR$ (I) f 2} f 5) ; " : " ; ue m 30 

455 FORK“0T05:N-FEEK(I+K) iIFK-OTHBNPRINTS 
PC (10) ; : rem 34 

457 PRINTRIGHTS{"00"+MID8(STR$ (N) ,2) ,3) 

* m l tram 157 

460 GETA6 : 1 FA$> " "THENPRI NT : PRINT : GOT03 1 0 

: rem 25 

470 NEXTK : PRINTCHRS (20) ; : NEXTI : PRINT: PRIN 
T : GOTO 310 ;rem 50 

480 X FN< DTK EN PRI NT : GOT031 0 :rem 1 6B 

490 A(J)*N;NEXTJ :rem 199 

500 CKSUM-AD-INT (AD/256) *256: FORI * 1 TO 6 : C K 
SUM- (CKSUM+A (D) AND 2 55 : NEXT : rem 200 
510 PRINTCHRS (18) ; :GO5UB570: PRINTCHRS (20) 

: rem 234 

515 IFN-CKSUMTHEN530 : rem 255 

520 PRINT: PRINT"LA RIGA E 1 STATA INSE-RXT 
A IN MANIERA ERRATA" treni 39 

525 PRINT"RI- INSERIRLA": PRINT: GOSUB1 000 :G 
OTO310 :rem 167 

530 GOSUB2QOO : rem 218 

540 FORI ■ T TO 6 : PO KEAD+I - 1 # A ( I) : NEXT 

: rem 80 

550 AD «AD +6: IFAD<ETHEN31 0 : rem 212 

560 GOTO 710 :retn 108 

570 N-OlZ-O : rem 88 


22 SUPER COMNOOOftE® 6/P5 


580 

PRINT" (<+>}"; 

: rem 

79 

581 

GETAS : I FAS «" " THEN 58 1 

: rem 

95 

585 

PRINTCHRS(20)}!A-ASC(A$) :IFA»1 30RA-44 


ORA-32THEN670 

? rem 

229 

5 90 

I FA > 1 2 8THENN-- A : RETURN 

; rem 

137 

€00 

I FA< > 2 0THEN 6 3 0 

srero 

10 

610 

GOSUB690: IFI-1 ANDT-44THENN- 

-1 : PRINT" 


(SIN) (SIN)" ; : GOTO 690 

: rem 

172 

€20 

GOTO570 

: rem 

109 

630 

I FA< 4 BORA > 5 7THEN 580 

: rem 

105 

€40 

PRINTA8 ; iN"N*l O+A-48 

: rem 

106 

650 

IFN> 2 5 5THENA- 20 : GOSUB1 000 1 GOTO 600 




srem 

229 

660 

Z-Z+l : IFZ<3TH£N580 

; rem 

71 

€70 

I F Z- 0THENGOSUB1 00 0 : GOTO 570 

: rem 

114 

680 

PRINT" f : RETURN 

: rem 

240 

690 

SI "PEEK (209) +256*PEEK (21 0) +PBEK (21 1 ) 



:rem 

149 

692 

FORI «1 T03 : T-PEEK (S*- I } 

:rem 

68 

695 

IFTO44ANDTO58THENP0KES4-I 

,32 : NEXT 



;rem 

205 

700 

PRINTLEFTS (" { 3 SIN)",I-1); 

: RETURN 



;rem 

7 

710 

PRINT" {CLRHRVS}*** SAVE * + * 



£ 3 GIU'}" 

s rem 

236 

720 

INPUT" (GIU ' } NOME DEL FILE" 

?F$ 




: rem 

199 


730 PRINT: PRINT" t 2 GIU 1 ) (RVS }N {OFF} ASTRO 
0 (RVS}D {OFFUSCO! (N/D)" : rem 128 

740 GETASìIP58<>*N*ANDA$O"D"THBN740 

nera 30 

750 DV-1-7» (A$-"D") :IFDV-8THENF$-*0:"+FS 

: rem 158 

760 T$"F$: ZK*PEEK ( 53} +256*PEEK (54) -LSN (TS 
) : POKE782 , ZK/256 : rem 3 

762 POKE7B1 , ZK-PEEK (782) * 256 : POKE780 , LEN ( 

TS) :SYS65469 nem 109 

763 POKB780,! :POKE78ì ,DV: POKE782, 1 : SYS 65 4 

66 nem 69 

765 POKB254, S/256 : POKE253 ,S-PEEK<254) *256 

: POKE780 ,253 nem 12 

766 POKB782, E/256 : POKE781 ,E-PEEK (782) ‘256 

: SYS65496 nem 124 

770 IP (PEEK (783) AND! ) OR (ST AND1 91 1THEN780 

: rem 111 


775 PRINT" IGIU* [OPERAZIONE CONCLUSA." : END 

: rem 1 52 

780 PRINT" E GIU’ ) ERRORE DI REGI STRAZIO- NE. 

RIPROVA. "ÌIFDV-1THEN720 : rem 8 

781 OPEN1 5, B,1 5 : INPUT# 1 5,Bl S,E2$ :PRINTBl S 

; E2$ :CLOSEl 5:GOTO720 :rem 103 

782 G0T072Q j rem 115 

790 PRINT" (CLR) (RVS}“* LO AD 

( 2 GIU 1 }" “ irm 212 

800 INPUT" {2 GIU'} NOME DEL FILE";FS 

nem .215 

810 PRINT! FRI NT" { 2 GIU ' } (RVS }N {OFF [ASTRO 
0 (RVS )D (OFFUSCO: (N/D) nem 127 

820 GETA$:IFA$O"N"ANDAS<>"D"THENB2 0 

nom 28 

830 DV«1-7*(AS-"D") :IFDV-8THENFS-"0:"+F$ 

nera 157 

840 T$*F$i ZR b PEEK (53) +256*PEEK { 54 ) -LEN (TS 

) ÌPOKE782, ZK/256 : reo 2 

841 POKB781 , ZK-PEEK (7 B2) *256: POKE780 , LEN ( 

TS) : SYS65469 : rem 107 

845 POKE7B0, 1 i POKE781 ,DV: POKE782, 1 ; SYS654 
66 nem 70 

850 POKE7B0 ,0: SYS65493 itera 11 

860 IF (PEEK (783) AND1) OR (ST AND 191} THEN 8 70 

nem 111 

865 PRINT" (GIU* }OPER AZIONE CONCLUSA. " :GOT 
0310 nera 142 

870 PRINT" (GIU* } ERRORE DI CARICAMENTO. RIP 
ROVA. (GIU' }"TiFDV- 1THEN800 ire» “43 

880 OPENl 5,8(1 5: INPUT#! 5,El $ ,E2S : PRINTE1 S 
;E2$:CLOSB15:GOTOBOO nera 102 

1000 REM CICALINO i rem 231 

1001 POKE36878, 1 5: POKE36874 , 1 90 nera 206 

1002 FORH-lTO300:NEXTH nera 117 

1003 POKB36878 r O:POKE36874 r O:RETURN 

nera 74 

2000 REM CAMPANELLO nem 130 

2001 FORW“l 5TOOSTEP- 1 : POKE36678 , W: POKE368 

76, 240 ; NEXTW nera 22 

2002 POKE36876,0; RETURN nera 119 

3000 FRINTC$;"(RVS}NON IN PAGINA ZERO O 

( 2 SPAZI } SU ROM ( 4 GIU’ }" iGOTOl 000 

nera 23 


MLX vertloee 2.0 p«r C64 

100 PRINT" (CLR) (CYN}*;CHR$(142) ;CKR$<8) ? : 

POKE53280, 0:POKE53281 ,0 nera 71 

101 POKE788, 52 :REM DISABILITA RUN/STOP 

:rem 89 

no PRINT" (RVS)f 40 SPAZI}"; nera 176 
120 PRINT"{RVS}{ 15 SPAZI} (DES){0FF) (<*>} 
“ ( RVS } { DES } (DES}{ 2 SPAZI) [<*>] (OFF) 

T<*>]2(RvsÌ2{Rvs) { 13 spazi}"; 

nera 250 

130 PRINT" {RVS}{ 15 SPAZI } 1 DES } [<N>] [<H> } 
(DES) ( 2 DES) {OFF } “(RVSU [<*>) (OFF) 
[<*>] (RVS} ( 13 spazi!"; nera 220 

140 PRI NT " ( RVS } { 40 SPAZI}* nera 120 

200 PRINT" ( 2 GIU' UPURjBDITOR DI CODICE 
MACCHINA VERSIONE 2.0( 3 GIU’}" 

nera 126 

210 PRINT" [<5>]( 2 SU) INDIRIZZO DI PARTE 
NZA( 2 SPAZI} :INPUTS:F"l-FlC$-CHRS ( 
31+1 1 9*F) nem 85 

220 IFS<2560R(S>40960ANDS<491 52)ORS>53247 
THENGOSUB3000 :GOT021 0 nem 235 

225 PRINT: PRINT: PRINT nera 180 


230 PRINT" E<5>]{ 2 SUÌ INDIRIZZO CONCLUSI 
voi 3 SPAZI } " ; :INPUTE:F«1-P:C$-CHR$ ( 3 
1+119‘F) nera 92 

240 IFE<2S6OR(E>40960ANDE<491 52)ORE>53247 
THENGOS UB 3000 : GOTO230 : rem 1 83 

250 IF£<STHBNPRINTC8 ; " (RVS } INDIRIZZO CONC 
LUSIVO< INDIRIZZO INIZIALE" tre» 200 

255 IFE<S THENGOS UBI 000:GOT0230 nera 119 

260 PRINT: PRINT: PRINT nera 179 

300 PRINT" [CLR} "jCHR? (14) :AD-8:POKEV+21 ,0 

nera 225 

310 A-l : PRINTRIGHTS { "0000"+MID$ ( STR$ (AD) , 
2) ,5);":"; :FORJ-AT06 nera 227 

315 PORJ-AT06 nera 33 

320 GOSUB570 :IPN--lTHENJ-J+N:GOTO320 

: rem 228 

390 IFN--21 1THEN710 nera 62 

400 IPN--204THEN790 nera 64 

410 IFN»-206THENPRINT: INPUT" ( GIU ' } INSERÌ 
RE IL NUOVO INDIRIZZO" ;ZZ nem 13 

41 4 IFN--276THBNIFZZ<SORZZ>ETHlNPRINT" 

{RVS [ESCE DAL CAMPO DI VALORI INDICAT 
O" irem 105 


5Uf*ROQMMOOO*É**/*S ■ 23 


41 5 XFN-- 206TKBNIF2Z<SOR22>BTHENGG5UBT ODO 
: GOTO 4 7 0 : rem 202 

41 7 IFN"- 2G6THENAD-2Z : PRINT i G0T031 0 

: rem 238 

420 IFNO-196THEN480 :rem 133 

430 PRINT : I SPOT "LISTATO s DA " ? F : PRINT* 

C 9 SPAZI} A" I lINPUTT : rem 183 

440 IFF<gQRP>EORT<SORT>ETHENFRX NT^MIN IMO" 
jS I * MASSIMO" j E; n I [<5>1 ":GOT04lO 

; rem 147 

450 FORI-FTOT3TEP6 SPRINT* PRINTBl GHT? f"000 
0 B +MID$ (STR$ (I) ,2) ,5) j"s"i srem 30 

451 FQRK* QT05 : N"P£EK ( I+K ) £ FRINTRIGHTS ("00 

"+MID$ (STR$ (N) ,2) ,3] f ",*j 3 rem 6 fi 

460 GETAS : 1 F A$ > " * THENPRI NT : PRINT : GOTO 3 1 0 




• rem 

25 

470 

HEXTK : PRIHTCHRS ( 20) f : NBXTI : PRINT : PRIN 


TlGOTOaiO 

:rem 

50 

480 

IFN<0THENPRINT : GOT031 0 

srem 

168 

490 

A ( J) -NiNEXTJ 

srem 

199 

500 

CKSUM-AB-INT (AD/256) *256 :PORI-ÌT06sCK 


S UM* ( C KSUM+A ( I ) ) AND 2 55: NEXT 

:rem 

200 

510 

PR1NTCHRS (10) ; :GOSOB570 : PRIHTCHRS ( 1 <6 


>) 

srem 

94 

51 T 

IFN--1THENA-6:G0T031 5 

z rem 

254 

515 

PRINTCHB? ( 20} t IFN-CRSUMTHEB530 




srem 

122 

520 

PRINT S PRINT* { RED } LA LINEA E 1 

STATA 

, IN 


SERITA IN MANIERA 7 

; rem 

157 

525 

P RI NT "ERRATA * RIPETERE [< S> } " 

1 : PRINT: GG 


SUBÌ 000 :GOT03lU 

:rem 

27 

530 

GOSUB20Q0 

3 rem 

218 

540 

F0RI"1T06 rPOKEAD+I-T , A ( I) :NEXT:POKE54 


272, 0:POKE54273 , 0 

srem 

227 

550 

JU3-AIH6 : IFWKBTHBH31 0 

: rem 

212 

560 

GOTO?} 0 

s rem 

108 

570 

N"0 1 Z-0 

: rem 

88 

580 

PRINT" [<">!"( 

srem 

81 

581 

GETAfi : IFM«""THBN581 

srem 

95 

582 

AV-- tM-"M")-2*(A0-",")-3*(M-"."} 

-4* 


(A$-"J“}-S*(A8-"K“)-6*{JW-"L") 




srem 

41 

583 

AV"AV"7* (A$«"U" ) - 8* ( AS""I * ) - 

9*(AS- 

"O" 


} S IFA$ ■ "H M THENA$ ■ H 0 " 

; rem 

134 

584 

IFAV> QTKENAS "CHR$ (48+AV) 

srem 

134 

585 

PRIHTCHRS (20) } iA-ASC(A$) iIPA»130RA 

-44 


ORA-32THEN670 

: rem 

229 

590 

I F A> 1 28THENN" - A : RETURN 

srem 

137 

600 

IPA020THEN630 

: rem 

10 

610 

GOSUB6 90 3 I FI - 1 ANDT» 4 4THENN- - 

li PRINT" 


(SIN} {SIN}"; 3GDT0690 

srem 

172 

620 

GOTO570 

: rem 

109 

630 

IFA<48ORA>57THBN5B0 

srem 

105 

640 

PRINTAS ; :N"N* 1 O+A-48 

srem 

106 

650 

IPH> 25STHENA* 20 : GOSUB1 000 : GOTO600 




:rem 

229 

660 

Z-Z+1 : IFZ<3THEN580 

srem 

71 

670 

IFZ "OTHENGOSUB 1 00 0 : GGT05 70 

: rem 

114 

680 

PRINT" # " S : RETURN 

srem 

240 

690 

SI-PEEK (209) +256*PEEK (21 0) +PBBK (21 1 ) 



srem 

149 

691 

FORI-lT03:T-PBBK(S%-I) 

srem 

67 


695 IFTO44ANDT<>5STHENP0KES%.I r 32:NBXT 

i rem 205 

700 PRINTLEPTS (*{ 3 SIN} " , I- 1 ) ? SRETURN 

: rem 7 

710 PRINT" (CLR} {RVS}*** SAVE *** 

( 3 GID T }" srem 236 

715 PRINT"! 2 GIU'JPREMBRB { RVS} RETURN 
{OFF} PER USCIRE DAL SAVEfGlìFF 

:rem 103 


720 F8*""s INPUT" {GIU 1 } NOME DEL FILE" ;F# Si 
FFS ■* "THE SPRINT 3 PRINT SGOT03 10 

' i rem 42 

730 FRI NT I PRINT" { 2 GIU 1 } { RVS }N{ OFF } ASTRO 
O {KVS}D{GFF} ISCO; (N/D) * ; rem 128 

74 0 GETA$ ; I FA$ < > *N" ANDA$ < > "D "THEN74 0 

, Eredi 30 

750 DV»l-7*(A8- n D") ; IFDV«8THENF$""0: "+F8 : 

OPKN15, 8,1S,*S*+F8:CLOSEl5 e rem 212 
760 T$*F5: ZR"PÈÉK(53)+256*FEBÌC {54) -LEH(T$ 
) 3POKE782, ZK/256 :rem 3 

762 POKE781 , ZK-FEEK ( 782) *256 : POKE7BQ , LEN ( 

T£’ ;SYS65469 :rem 109 

763 P0KE73G, 1 JPOKE781 , DV? POKE782 , 1 :5YS654 

66 : rem 69 

765 K m S : POKE2 54 , K/256 : POKE2 53 # K- PEEK { 254 ) 

*256 ; POKE780, 253 tr&n 17 

766 K-E+T SPOKB782, K/256 SPOKE781 ,K-PEBK{78 

2) *2 56 : SYS 6 54 9 6 : rem 235 

770 IF (PB1K (703 ) ANDl ) OR ( 1 91 ANDST) TKEN780 

: rem 111 

775 PRINT " { GIU 1 } FATTO * {GIU 1 }";G0TO310 

:rem 201 

780 PRINT" {GIU 1 } ERRORE NEL SAVB~RIPRGVA 1 * 

sIFDV-ITHEN?^ :rem 104 

781 OPENl 5# 8 1 1 5: INPUT# 1 5,B1 8 * B28 e PRINTBl $ 

;E2$ : GLOSSI 5: GOTO? 20 = rem 103 

790 PRINT" {eXRHRVS}*** LOAD *** 

{ 2 GIU*}" = *«» 212 

795 PRINT" { 2 GIU 1 } PREMERE {RVS} RETURN 
{OFF} PER USCIRE DAL LOAO{GIUVJ" 

: rem 96 

800 ?$-""* INPUT" { 2 GIU*} NOME DEL FILE* j F 
$ 3 IFF6" " "THENPRI NT SGOTQ31 0 srem 115 
810 PRINT : PRI NT* { 2 GIU 1 } I RVS} N{ OFF } ASTRO 
O { RVS } D { OFF ] ISCO : [N/D) ! rem 127 

820 GETA$ 3 1 FA8 < > *N" ANDA$ <> "D "THEM8 2 0 

i rem 28 

830 DV» 1 - 7 * { A$ *"D " ) 3 I FDV“ 0THEMF8 ■" 0 : "+F8 

: r em 157 

840 T$*F8 i ZK-PEEK (53) +2 56*PEBK (54) -LEN (T$ 

) IPOKE782, ZK/256 t rem 2 

841 P0KB781 f ZK-PEBK (782) *256 ; POKE780 , LEN < 

T$):SFS6S469 : rem 107 

845 POKE780, 1 3POKE781 ,DV: POKE782 , 1 ;S¥S654 
66 3 rem 70 

850 POKE780,0:S¥S65493 :rem 11 

860 IF (PESK (783) ANDl )OR{1 91 ANDST) TBBN870 

s rem 111 

865 PRINT" (GIU * } FATTO « * : GOT03 1 0 :re® 184 
870 PRINT" (GIU 1 } ERRORE NEL LOAD-EIPSTII 
{GIU T }" i IFDV»1 THEN800 t rem 19 

880 OPENl 5f 8 f 1 5 1 INPUT# 1 5#E1 $ , E28 : PRINTBl $ 
fB2$3CLOSEl5:GOTO800 srem 102 

1000 REM CICALINO s rem 231 

1001 PQKB54296,15:POKE54277,45tPOICBS4278, 

165 :rem 207 

1002 POKB5 4 2 76 f 33 3 P0KE5 4 2 73 , 6 : POKE5 4 2 7 2,5 

srem 42 

1003 FORT-lTO200:NEXT;POKE54276,32tPOKES4 

273,0: POKE 5 4272,0: RETURN : rem 202 

2000 REM CAMPANELLO : rem 130 

2001 POKE 5 4 296, 1 5;POKS54277 , GsPQKE54278 , 2 

47 : rem 152 

2002 POKE5 4 2 76 , 1 7 s POKE 54 27 3 , 40 * POKE54 2 72 , 

0 :rem 86 

2003 FORT" 1 TOl 00 : NEXT i POKE542 76 , 1 6 : RETURN 

3 rem 57 

3000 PRINTC$i“{RVS) NON IN PAGINA ZERO O 
S U { DEE ) ROM * : GOTO 1 000 s rem 240 
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Le possibilità di 
comunicazione con 
l'esterno dei computer 
Commodore 


Il computer è lai macchi** pai 
diflmÌdoa« latinttifii la su 
pattala, ottra eh* natia velociti 
di calcolo a atO'auoatart di 
■a m o r la disponibile, rial ad* ao- 
pi a Ha l l o a alla ««a capacità di 
comunica*!*** eoa 11 mondo 
catara o* 


Q uando digitiamo un programma, o 
diamo in modo diretto ìi comando 
LO AD per caricarlo in memoria da cas- 
setta o disco, comunichiamo con il com- 
puter attraverso la pressione dì alcuni 
tasti sulla tastiera; esso rileva la sequen- 
za con la quale questi tasti vengono pre- 
muti, la confronta con 11 suo “vocabola- 
rio'* Interno e, se tutto è corretto, proce- 
de con l’esecuzione del comando che gli 
abbiamo così Impartito. 5e quanto ab- 
biamo digitato non concorda con quan- 
to il computer è In grado di capire, esso 
d avvertirà con un W ?$YNTAX ER- 
RORE visualizzandolo sullo schermo. 
La tastiera rappresenta 11 modo più im- 
mediato di u interfacciamento" uomo- 
computer. ed è II primo dispositivo di 
comunicazioni del computer con 
T esterno con 11 quale si prende confi- 
denza. Il calcolatore, a seconda del la- 
voro che viene chiamato a svolgere, 
può tuttavia avere necessità di comuni- 
care con altri apparati - ad esempio Li 
registratore a cassette o la stampante 
- oppure ancora con l'uomo, attraverso 
altre “interfacce' che non siano La ta- 
stiera . 
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Per questi scopi 11 computer è dotato di 
un certo numero di prese - più propria- 
mente “porte" - che permettono if col- 
legamento con altri dispositivi. 
Vediamo di analizzarle, per scoprire a 
che cosa servono. 

La prima connessione del computer con 
l’esterno che l'utente impara a conosce- 
re è senz'altro l'uscita video, la quale 
permette di collega re il computer al te- 
levisore. senza il quale esso rimarrebbe 
"muto", pur potendo ugualmente ed In 
ogni caso eseguire I suol compiti. 

Non si tratta propriamente di una por* 
ta, se si assume di definire con questo 
termine un canale di comunicazione con 
l'esterno in grado di permettere 11 tra* 
sferimento di dati. La connessione vi- 
deo è "a senso unico", in quanto per- 
mette soltanto l'uscita di un segnale dal 
computer e non Invece il suo Ingresso. 
Questa uscita è divisa fisicamente In 
due diversi connettori, uno per il cavet- 
to coassiale a 75 ohm da col legare di- 
rettamente alla presa di antenna di un 
comune televisore, e l’altro consìstente 
in un connettore DIN per 11 collegamen- 
to ad un monitor a colori a monocroma- 
tico. 

La differenza sostanziale tra un monitor 
ed un comune televisore a colori risiede 
nel trattamento al quale viene sottopo- 
sto IL segnale proveniente dal computer: 
mentre nel televisore esso passa attra- 
verso molti circuiti che - tra le altre 
cose — lo sintonizzano sulla frequenza 
prescelta e ne separano 1 tre colori fon- 
damentali (rosso, giallo e blu] prima di 
Inviarli separatamente al tubo catodico, 
nel monitor il segnale entra già separato 
nelle sue tre componenti cromatiche 
fondamentali, non necessita di sintonia 
e viene inviato direttamente al tubo ca- 
todico. Per questo motivo i monitor di- 
spongono dì un segnale più “puro", per- 
mettendo un'Immagine molto più stabi- 
le e definita rispetto a quella ottenibile 
anche dai migliori televisori a colori, 

11 connettore DIN di collegamento al 
monitor è a otto poli nelle versioni di 
C64 più recenti (le prime versioni lo 
possedevano uguale a quello del VIC 
20, a cinque poli), e possiede inoltre 
una linea di ingresso audio - oltre alla 
normale uscita - tale da permettere 
l'invio di segnali sonori dall esterno di- 
rettamente all'Integrato SJD. 

Chi volesse sperimentare con questo in- 
gresso audio tenga presente die posso- 
no essere Inviati al computer soltanto 
segnali di basso livello (non amplificati), 
onde evitare prevedibili guai all'Integra- 
to. 

Dopo la connessione video, la porta — 
ed In questo caso II termine è appropria- 
to - senz'altro più nota a tutti è quella 
di Interfaccia con il registratore. 
Questa porta, modificata nella forma, 
ma non nella sostanza, nel nuovi modelli 
C16 e Plus/4, permette di collegare il 
computer al Datassette 1530 (C2N) o, 
nel caso del C16-Plu$/4, ai Datassette 
153L I due modelli di registratore, a 
parte il colore esterno e qualche modifi- 



ca non sostanziale nella circuiteti® inter- 
na, sono del tutto identici e differiscono 
soltanto per la forma di questo con net* 
tore al computer. 

Le connessioni utilizzate nella porta per 
Il registratore comprendono una lìnea 
In grado di comunicare al computer se 
è stato premuto qualche tasto sul regi- 
stratore stesso (qualche tasto, si noti 
bene, e non un tasto in particolare...), 
una linea per l'uscita del dati dal com- 
puter ed una per il loro Ingresso. Due 
linee sono utilizzate per L'alimentazione 
del registratore a due differenti tensio- 
ni: 9 V per 11 motore di trascinamento 
del nastro e 5 V per i circuiti elettronici 
intemi, ed un'ultima linea viene utilizza- 
ta come massa. 

La comunicazione attraverso questa 
porta viene completamente gestita dal 
computer attraverso il suo sistema ope- 
rativo: il Kernal (questo È il nome asse- 
gnato dalla Commodore al sistema ope- 
rativo delle sue macchine) possiede del- 
le routine come La LO AD (C64: 65493), 
OPEN (C64: 65472), READST (C64: 
65463), SAVE (C64: 65496], SETLFS 
(C64: 65466), 3ETNAM (C64: 65496), 
CLOSE (C64: 65475) ed altre, In grado 
di assicurare la completa gestione di 
questa periferica sta attraverso il BA- 
SIC che attraverso il linguaggio macchi- 
na. Una descrizione delle routine Ker- 
nal, per chi fosse interessato ad appro- 
fondire l'argomento, si può trovare sul- 
la “Guida di riferimento del program- 
matore" edita dalla stessa Commodore 
per 1 vari computer (per 06 e Plus/4 
non è attualmente ancora disponibile 
nemmeno in Lingua inglese), oppure, nel 
caso del C64, in *11 SO. del CBMÓ4" 
della E.V.M, Gomputers. 

Procedendo nella sequenza di analisi 
dalle porte più conosciute a quelle me- 
no conosciute, troviamo le (una sola nel 
VEC 20) Control pori, meglio conosciute 
come porte joystick. Esse sono costitui- 
te da connettori a vaschetta DB-9 a no- 
ve poli, che permettono il collegamento 
delta stragrande maggioranza di joy- 
stick presenti sul mercato. Anche qui la 
Commodore ha reso non standard que- 
ste porte nei nuovi CI6 e Plus/4 - uffl* 
dal mente per diminuire l'interferenza 
RF di radiofrequenza (sic.) - costringen- 
do l'acquirente delle nuove macchine 
all 'acquisto di nuovi joystick... natural- 
mente Commodore. 

Porte fondamentalmente di solo Input 
servono inoltre per II collegamento delle 
paddle (solo disponibili in coppia: consi- 
stono In due manopole rotative e due 
pulsanti dì fuoco) e della penna ottica, 
che permette, dotata del software ade- 
guato, di scrivere o disegnare diretta- 
mente sullo schermo. Nel C16 e Plus/4 


non è Invece presente la drcuiteria ne- 
cessaria alla lettura delle paddie, quindi 
queste porte vanno considerate come 

ure porte joystick. 

a porta seriale DIN, sul retro del com- 
puter. viene usata comunemente per 
co] legare \ì disk drive o la stampante. 

Il termine "seriale" stgnifica che i dati 
vengono trasmessi in serie, cioè un bit 
dopo l’altro. Una porta seriale può quin- 
di funzionare solo In trasmissione o In 
ricezione, e non In entrambi 1 modi con- 
temporaneamente, come una porta pa- 
rallela. 

Dotata di sei poli, deriva dalla porta 
seriale IEEE-488 presente nella prima 
serie PET, e comprende una linea cosid- 
detta di “reset" (la sua esistenza spiega 
il perché si accende ta luce rossa del 
drive o sì muove la testina della stam- 
pante ogni volta che il computer viene 
acceso). Come la porta del registratore, 
anche questa è controllata e gestita dal 
sistema operativo del calcolatore: le pe- 
riferiche collegate sono distìnte da un 
numero particolare (4 o 5 per la stam- 
pante, 6 per 11 plotter 1520, da 8 a II 
per Li disk drive). 

Questo numero distintivo della periferi- 
ca può estere modificato via hardware 
e, in alcuni casi, anche via software (ad 
esempio, nel dischetto dimostrativo for- 
nito nella confezione del drive è conte- 
nuto un programma che permette di 
modificare In 9 11 numero di perife- 
rica distintivo del drive stesso). I co- 
rnanti BASIC che accedono a questa 
porta sono 1 consueti OPEN, CLOSE, 
PRINT#, INPUT#, GET#, oltre al 
LOAD, SAVE e VERIFY sul disk drive, 
e da linguaggio macchina sono accessi- 
bili tutte Le routine Kernal elencate per 
il registratore, Insieme ad altre, come 
la LI STEN (C64: 65457), TALK (C64: 
65460), CIOUT (C64: 65448), ACPTR 
(C64: 65445) e molte altre che non è 
possibile qui riportare per ragioni di 
spazio. 

La User Pori consiste Invece nel connet- 
tore a 24 polì che si trova a destra, 
guardando 11 retro del computer. Come 
dice 11 suo stesso nome, è una porta 
disponìbile per qualsiasi uso l'utente de- 
sidera farne: rende infatti possìbile, at- 
traverso I suoi connettori, Taccesso ad 
un gran numero di Linee di controllo del- 
l'Integrato CIA (Comptex Interface 
Adapter], o del VIA (Versatile Interface 
Adapfer) nel caso del V)C 20; queste 
linee non sono tuttavìa gestite dat siste- 
ma operativo, come net caso della porta 
seriale o della porta per registratore, e 
richiedono quindi, per utilizzi persona- 
lizzati, un'attenta programmazione In 
linguaggio macchina. 

A causa di queste limitazioni, la User 


Novità 

finnate 

Jackson. 

Le Novità Jackson puoi 
acquistaHe in via Mascheroni 14 
a Milano e in tutte le migliori 
librerie. 



La biblioteca che fa testo. 


Port viene utilizzata , nella stragrande 
maggioranza dei casi, come porta di in- 
terfaccia RS-232, Dal momento tuttavia 
che LI protocollo RS-232 usato dalla 
Commodore differisce da quello stan- 
dard Implementato da quasi tutte le pe- 
riferiche RS-232, occorre connettere al- 
la User Port un apposito adattatore - 
ad esempio l'adattatore VIC- 1011 A 
RS-232C, venduto dalla stessa Com- 
modore - che permetta di convertire i 
livelli di tensione di 0.5 V della User 
Port nel livelli standard di -12 V e 
+12 V. 

L'interfaccia RS-232 viene considerata 
dal computer come periferica numero 
2, e parametri come velocità dì trasmls- 
sione e parità vengono fomiti, con una 
particolare codifica in CHR$, nel nome 
del file. L'interfaccia RS-232 è Indispen- 
sabile, se si desiderano collegare ai 
computer stampanti di qualità o modem 
non Commodore. 

La User Port, esistente sul VIC 20, C64 
e Plus/4, non è invece presente nel 
CI 6. 

infine, la porta che si trova a sinistra 
guardando il retro del computer viene 
utilizzata principalmente per espansioni 
di memoria (nel VIC 20) o per l'Inseri- 
mento di cartucce di programmi. E col- 
legata direttamente ad un buon numero 
di linee di controllo del mieto processo- 
re, e questa particolarità rende possibi- 
le, ad esemplo, il collegamento al C64 
della cartuccia CP/M con il micropro- 
cessore ZSO, che va a 41 sostituirsi al 
6510 presente nel computer stesso. 

Ciò che £ possibile ottenere con l'uso 
consapevole di tutte queste porte di co- 
municazione con il mondo esterno è li- 
mitato soltanto dalla disponibilità di ac- 
cessori sul mercato, o dalla capacità 
dello sperimentatore hardware. 

Negli USA già da tempo vengono com- 
mercializzati accessori molto particolari 
per Li C64; da uno serie di sensori, che, 
posti fuori dalla finestra di casa e colle- 
gati al computer, sono in grado dì per- 
mettere al programma fornito insieme 
al tool l dati necessari per effettuare le 
previsioni del tempo, a connettori per 
inviare al computer Le immagini riprese 
da una telecamera o contenute in una 
videocassetta, ai sintetizzatori dì voce 
ed alle Interfacce con strumenti musicali 
di tutti I tipi. 




NON AVRAI ALTRA STAMPANTE 


Seikosha ti invita nel meraviglioso mondo delle sue 
stampanti. 

Un mondo fatto di progresso, dì elevatissima qualità, 
velocita e silenziosìtà di stampa. 

Seikosha oggi ti propone la piu vasta gamma di 
stampanti, nate per esaltare le prestazioni di ogni tipo 
di computer. 

All'altezza di ogni esigenza, anche della tua che usi 
i Computer Commodore. 

La tua necessita di stampa trova nel modello GP 500 VC. 
con 80 colonne e 50 caratteri al secondo, il miglior 
rapporto fra il prezzo, che e particolarmente contenuto, 
e le prestazioni di tutto rispetto. 

Ma se hai delle applicazioni di Word Processing, solo 
GP 550 A con 80 colonne e 50 caratteri al secondo. 


anche Near L.etter Quali tv a 25 caratteri al secondo, si 
impone per le sue prerogative di macchina bivalente; 
stampa comune e produzione di documenti 
Se le tue necessita ti impongono l'uso del colore, scoprì 
GP 700 VC che fa del colore un vero spettacolo, intatti 
con 80 colonne e 50 carati er i al secando, consente la 
stampa in aita risoluzione rii 7 colori base e un numero 
praticamente illimitato di sfumature. 

Seikosha e Commodore; una coppia che va d amore t* 
d accordo. 


SEIKOSHA 

Distribuzione «selusiva: GBC Divisione Rebit 



dì S.D.Wogle 

trad. ed adatt. 

di M. Crìitalb Gflul 
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Un notavok profranna eoa pia* 
tintala In llnfaioflo nicchiai 
por II VIC 2§ loeopoaea, con e* 
rati* ritti e fan di finalaritat di 
SPHITE e aov lavato finn plial 
por pluvi, «alta aonto od km 
grondo velocità di ooocnslono. 
Portico loro carialo è l'età del* 
reoforo del progrOMMOs 16 aa- 
nll 

fronte implicito nel nome, "A strepa- 
vi nic" è un gioco sparlale frenetico e 
dall 1 azione velocissima. Scopo del gio- 
co, classicamente, è difendere - trami- 
te l’uso del joystick - Il proprio cannone 
nella parte bassa dello schermo dagli 
attacchi da parte delle innumerevoli 
astronavi aliene. Queste ultime sono 
raggruppate in stormi e si muovono in 
modo assolutamente Imprevedibile, 
eseguendo delle veloci picchiate e risali- 
te in quota. 

Si dispone di tre cannoni, ed II gioco è 
strutturato su quindici diversi livelli, 
ognuno dei quali di difficoltà crescente. 
Se si dovesse superare 11 quindicesimo 
livello (ma non è molto fadle 1) pro- 
gramma continuerà ritornando al primo 
livello. L’azione può essere "congelata” 
in qualsiasi momento premendo il tasto 
SHIFT LOCK, che funziona come un 
interruttore, In quanto rilasciandolo s! 
provocherà la ripresa del l'azione. Per 
iniziare. In qualsiasi momento, una nuo- 
va partita è sufficiente premere un qua- 
lunque tasto alfabetico. 

Se si dispone della cassetta allegata alla 
rivista, è sufficiente posizionarsi con Li 
nastro In corrispondenza dell'inizio del 
programma e digitare: 

LOAD H a l t l 

(attenzione: non inserire spazi tra gli 

apici!) 

D programma andrà quindi mandato In 
esecuzione digitando: 

SYS 6560 

Ricordiamo che per conoscere tl punto 
esatto di inizio dei vari programmi su 
cassetta è sufficiente Inserire quest 1 ulti- 


ma completamente rlawotta nel regi- 
stratore, azzerare il contanastro e digi- 
tare: 

LOAD“" 

Dal momento che sicuramente non esi- 
ste sulla cassetta alcun programma di 
nome **’, il computer passerà In rasse- 
gna tutti I programmi incontrati, visualiz- 
zandone il nome con Li messaggio: 

FOUND XXXX 


Sarà quindi utile annotarsi su un foglio 
I nomi del programmi e la relativa po- 
sizione del contanastro {sottrarre tre o 
uattro unità dal valore corri sporg- 
ente airapparizzìone del messaggio 
FOUND..,). 

GLI abbonati alla sola rivista dovranno 
invece usare 11 programma MLX (vede* 
re nelle pagine verdi) per digitare il Lista- 
to In linguaggio macchina. La procedu- 
ra da seguire, in questo caso, A: 

1. Spegnere il computer ed Inserire 
un'espansione di memoria da almeno 8 
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Kbyte r Caricare in memoria MLX (che sarà sta indirizzo finale: 7679 

2, Accendere il computer e digitare: to precedentemente digitato e salvato) , 

e rispondere alle sue richieste circa gli Dopo avere digitato e salvato il prò- 
POKE44,30:POKE7680,0:NEW indirizzi iniziale e finale con: gramma tramite MLX si potranno se- 

[RETURN] guire per il caricamento le istruzioni da- 

indirizzo iniziale: 4608 te per i possessori di cassetta. 

Astro panie per VIC 20 4914 :224, 166, 174, 165,141, 157, 053 

4920 : 071 ,003,169,127,1 57,070,141 
4608 : 1 62,000,1 89,074,003 ,201 ,1 1 7 4926 : 00 3 , 1 6 5 , 1 43 , 04 8 , 029 , 1 69 , 1 07 

461 4 :094, 1 44, 003,076,1 06,01 9,1 92 4932 : 1 2 8 , 094 , 071 , 003 , 02 9 , 071 , 208 

4620 :234, 234, 234, 234, 1 89, 070, 1 83 4938 : 00 3 , 1 57 , 071 , 00 3 , 1 6 5 , 1 42 , 1 03 

4626 :003, 01 6,021 ,01 0, 1 33,1 74,1 1 9 4944 : 04 1 , 1 2 8 , 029 , 070 , 0 0 3 , 1 57 , 2 52 

4632 :056, 1 89, 068, 003, 229, 1 74, 231 4950 : 070 , 00 3 , 1 69 , 1 50 , 1 5 7 , 067 , 1 90 

4638 : 1 57, 068, 003, 1 76, 020, 222, 1 64 4956 : 00 3 , 0 76 , 1 06 , 01 9 , 094 , 071 , 205 

4644 :066, 003, 076 , 055,01 8,234,232 4962 : 00 3 , 094 , 070 , 00 3 , 0 76 , 067 , 1 55 

4650 :01 0,024,1 25,068, 003, 1 57,1 73 4968 {019,234,024,138,105,012,124 

4656 :068,003,144,003,254,066,074 4974 {041,252,170,224,083,176,032 

4662 {003,134,174,234,189,066,086 4980 {003,076,002,018,076,234,013 

4668 {003,201,001,144,007,201,105 4986 {019,234,234,234,162,000,237 

4674 { 1 66,1 76,059,076,1 92,01 8,241 4992 : 0 32 , 238 , 025 , 1 89 , 067 , 003 , 1 70 

4680 {032,148,224,166,174,165,213 4998 {074,074,074,168,185,000,197 

4686 :141, 157, 070, 003, 169, 127, 233 5004 {027, 157, 072, 003, 185, 032, 104 

4692 {157,071,003,165,143,048,159 5010 {027,157,073,003,189,066,149 

4698 {024,234,234,234,165,142,099 5016 {003,074,074,074,024,125,014 

4704 {041,128,029,071,003,157,013 5022 {072,003,157,072,003,144,097 

4710 {071,003,094,070,003,169,000 5028 {003,254,073,003,024,138,147 

4716 {001,157,066,003,076,192,091 5034 {105,012,041,252,170,224,206 

4722 :018,094,070,003,094,071,208 5040 {083,176,003,076,128,019,149 

4728 :003,076,091,018,234,234,008 5046 {234,076,000,020,234,234,212 

4734 {234,234,032,148,224,166,140 5052 {234,234,234,234,189,064,097 

4740 {174,165,141,157,070,003,074 5058 {003,133,176,189,065,003,251 

4746 {169,127,157,071,003,165,062 5064 {133,177,169,032,160,000,103 

4752 {143,048,029,169,128,094,243 5070 {145,176,200,145,176,160,184 

4758 {070,003,029,070,003,157,226 5076 {022,145,176,200,145,176,052 

4764 {070,003,165,142,041 ,128,193 5082 {076,016,020,189,074,003,084 

4770 {029,071,003,157,071,003,240 5088 {201,094,144,220,134,178,171 

4776 {169,166,157,066,003,076,037 5094 {076,016,020,234,238,192,238 

4782 {1 92,01 8,094,070,003,094,1 33 51 00 : 003 , 1 73 , 1 92 , 00 3 ,205, 1 93 , 237 

4788 {071,003,076,147,018,234,217 5106 {003,176,003,076,000,018,006 

4794 {234,234,234,234,234,234,054 5112 {169,000,141,192,003,076,061 

4800 {189,071,003,016,021,010,246 5118 {126,019,032,208,025,162,058 

4806 {133,1 74,056,1 89,069,003,054 51 24 :000, 142, 063, 003, 234, 2 34, 168 

4812 {229,174,157,069,003,176,244 5130 {234,234,234,076,221,019,004 

4818 {020,222,067,003,076,231,061 5136 {189,074,003,201,000,208,179 

4824 {018,234,010,024,125,069,184 5142 {100,173,063,003,010,010,125 

4830 :003,157,069,003,144,003,089 5148 {010,010,010,133,179,024,138 

4836 {254,067,003,134,174,234,070 5154 {189,067,003,041,007,101,186 

4842 {189,067,003,201,003,144,073 5160 {179,133,179,105,008,133,009 

4848 {007, 201 , 150, 1 76, 059, 076, 141 5166 {177, 134, 178, 189, 066, 003, 025 

4854 {106,019,032,148,224,166,173 5172 {041,006,010,010,010,170,043 

4860 {174,165,141,157,071,003,195 5178 {164,179,189,032,029,153,036 

4866 {169,127,157,070,003,165,181 5184 {000,028,189,040,029,153,247 

4872 {143,048,024,234,234,234,157 5190 {016,028,232,200,196,177,151 

4878 :165,142,041,128,029,070,077 5196 {208,238,238,063,003,024,082 

4884 {003,157,070,003,094,071,162 5202 {165,178,105,012,041,252,067 

4890 ; 00 3,1 69,003, 1 57,067,003, 1 72 5208 {1 70, 224,083,144,1 76, 1 62,023 

4896 {076,106,019,094,071,003,145 5214 {000,189,074,003,201,000,049 

4902 {094,070,003,076,014,019,058 5220 {240,009,201,088,176,005,051 

4908 :234,234,234,234,032,148,136 5226 {169,144,141,169,003,138,102 
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5232 : 024, 1 0 5, 01 2,1 70 , 224,0 8 3,21 8 
52 38 : 1 44,231 , 076,1 28 , 020 , 076,025 
5244 : 000 , 02 3 , 234 , 2 34,1 6 2,00 0,0 09 
52 50 : 1 42 , 063 , 003,1 34,1 78,1 89,071 
52 56 : 072 , 003,1 33,1 76,1 89 , 073,01 4 
5262 : 00 3,1 33 , 1 77,1 7 3 , 063,00 3,1 82 
52 6 8 : 01 0,01 0,1 33,1 87,1 60 , 000,1 36 

52 7 4 : 1 77,1 76,1 33, 1 88,0 32 , 000,092 
5 2 80 : 0 21 ,1 60 , 022,1 77 , 1 76 , 1 33 , 081 
5286 : 1 88 , 230 , 1 87 , 032 , 000 , 021 ,056 
5 2 92 : 1 60,001 , 1 77 , 1 76, 1 33, 1 88,239 
5 2 98 : 230,1 87 , 032 , 000,021 , 1 60,040 
5 304 : 023, 1 77, 1 76, 1 33, 1 88 , 230, 087 
5 31 0 : 1 87 , 032 , 000,021 ,1 66,1 78,006 
5316 :1 38, 0 24 , 105 , 012, 1 70 , 238, 115 
532 2 : 063 , 003 , 224 , 083,1 44,1 81 , 1 32 

53 2 8 : 1 73,141 ,00 2,201 , 000 , 240,1 97 
5334 : 008, 1 69, 001 , 1 41 ,1 94 , 003,21 8 
5340 : 076 , 208, 02 0,1 69 , 000,141 ,066 
5 34 6 : 1 94 , 003 , 234,1 69,01 4,1 41 ,21 3 

53 52 : 01 5 , 144,1 73 , 169 , 003,141 ,109 
53 5 8 : 01 3 , 144, 16 9 , 007,1 41 , 248,1 92 
5364 : 1 51 , 076,1 6 0 , 022 , 234 , 234,097 
5370 : 234 , 234 , 234 , 234 , 234 , 234, 1 1 8 
5376 : 1 32 ,1 89, 1 65,1 87,01 0, 01 0, 1 81 

53 82 : 01 0 , 1 70, 1 05 , 008 , 1 33 , 1 90, 1 1 0 
5388 : 165 , 188 , 201 , 031 , 1 76 , 01 9, 024 
5394 : 010 , 01 0 , 010 , 168 , 1 89 , 000,149 

54 00 : 02 8 , 025, 00 0 , 028, 1 57 , 000, 006 
54 0 6 : 02 8,2 32 , 200,22 8, 1 90 , 208,092 
5412 ; 241 ,1 64,1 89,1 66,1 78,1 89,1 39 

541 8 : 074 , 003, 201 , 094 , 144,001 ,047 

542 4 : 096,1 65,1 87 , 145 , 176 , 096,145 
54 30 : 234 , 2 34 , 234 , 2 34 , 2 34 , 2 34, 1 78 

5436 : 234 , 234 , 234 , 234 , 1 73 , 160,049 
54 4 2 : 00 3, 201 ,001 , 240,0 74,1 69,242 
5448 : 001 , 141 , 160 , 003 , 173 , 060,098 
5454 : 00 3 , 1 4 1 , 162 , 00 3 , 160 , 000, 035 
5460 : 1 62 , 060 , 041 , 007 , 201 , 003,046 
5466 : 1 44 , 007,1 60,001 , 1 62,061 , 1 1 3 
54 72 : 2 34 , 234 , 23 4 >1 4 0,1 66,00 3,083 
5478 : 1 42 , 1 61 , 003 , 1 73 , 060 , 003,1 32 
5484 : 0 74 , 07 4, 0 74, 02 4,1 0 5,1 84,1 31 
5490 : 1 41 , 164 , 003 , 1 69 , 031 , 141 ,251 
54 96 : 1 65 , 003 , 1 69 , 160,141 ,1 63,1 53 
5502 : 003 , 234, 1 73 , 060 , 003,041 ,1 28 
5 50 8 : 007 , 024,1 09,1 62 , 003,1 41 , 066 
551 4 : 162 , 003 , 1 69 , 240,141 ,01 2,097 
5520 : 144 , 076 , 045 , 024 , 234 , 234,133 
5526 : 234 , 234 , 234 , 234 , 234 , 234,01 8 
5532 ; 234 , 234 , 234 , 234 , 1 73 , 160,145 
5538 : 003, 201 , 001 , 208 , 073,1 62,042 
5 544 ; 000,1 89 , 066 , 003 , 056 , 233,203 
5550 ; 004 , 205,1 62 , 003,1 76 , 044,000 
555 6 il 05,01 2 , 205 , 162 , 003 , 144,043 
5 56 2 ; 0 37,1 73,1 6 3,0 03 , 024,1 05,1 79 
5 5 68 : 008, 221 , 067 , 003,1 44 , 026,1 49 
5574 : 1 73 , 163 , 003 , 056 , 233 , 01 5,073 


5580 : 221 , 067 , 003,1 76,01 5,1 89,1 07 
5 586 : 0 74 ,00 3,201 , 000 , 208 , 008,1 9 2 
5592 : 076 , 160 , 023 , 234 , 234 , 234,1 53 
5598 : 234 , 234,1 38 , 024,1 05,01 2,201 
5604 : 1 70 , 224 , 083 , 144 , 1 92 , 234,251 
561 0 : 2 34,2 34,2 34,2 34,2 34,2 34, 1 0 2 
5616 : 096 , 2 34 , 2 34 , 2 34 , 234 , 234, 226 
5622 : 234 , 2 3 4 , 234 , 234 , 234 , 2 34, 1 1 4 
5628 : 234 , 234 , 234 , 234 , 234 , 234, 120 
5634 : 234 , 234 , 234 , 234 , 234 , 234,1 26 
564 0 : 234 , 234 , 234 , 234 , 234 , 234,1 32 

56 4 6 : 234 , 234,1 73,1 60 , 003,201 ,251 
5652 : 001 , 208 , 105 , 172 , 166 , 003,163 
5658 : 1 73 , 164 , 003, 1 33, 251 ,1 73,1 55 
5664 : 165 , 003, 1 33 , 252 , 169 , 032, 01 8 
5670 : 1 45, 251 , 056,1 73 , 1 64 , 003,062 
5676 : 23 3 , 022 , 176 , 003 , 206,1 65,081 
568 2 : 003, 1 41 , 1 64 , 003 , 056,1 73, 078 
5688 : 1 63 , 003 , 233 , 008,1 41 , 1 63,255 
5694 : 003,201 ,1 60, 1 44 ,01 1 ,1 69,238 

570 0 : 000, 141 ,1 60 , 003,141 , 013,014 
5706 : 1 44 , 076 , 191 , 234 , 173 , 164,032 

571 2 : 00 3, 1 3 3,251 ,1 73 , 165 , 003,040 
571 8 : 1 33 , 252 , 1 72 , 1 66 , 003 , 1 73,21 7 

572 4 : 1 61 , 003,1 33 , 254 , 032,1 60,067 
5730 : 021 ,1 65 , 254 , 145,251 ,1 73,083 
5736 : 1 60, 00 3 ,201 , 001 ,20 8 , 00 8 ,1 73 
5742 : 173, 01 2, 1 44 , 233 , 00 7, 1 41 , 0 52 

57 4 8 : 01 2,1 44 , 234 , 234 , 234 , 234,1 84 
57 54 : 234 , 234 , 234,23 4 , 234 , 234,24 6 
5760 : 1 73 , 005 , 1 44 , 201 , 253 , 208,088 

57 66 : 00 5, 1 6 9,2 55,1 41 , 005,1 4 4,0 85 
5772 : 169 , 01 4,1 73,1 60,00 3,201 ,092 
577 8 : 001 , 240 , 005 , 169 , 096,1 41 ,030 
5784 : 01 2 , 1 44 , 076 , 1 91 , 234 , 234,019 
5790 : 234 , 234 , 162 , 004 , 189 , 068, 025 
5796 : 027 , 024 , 125 , 074 , 027 , 201, 130 

58 02 : 01 0,1 44 , 008 , 254 , 073,0 27,1 74 
580 8 : 233, 01 0 , 076,1 69 , 022,1 57,075 
5814 ; 0 74 , 027, 1 69, 000 , 1 57, 06 8, 1 65 
5820 : 027,1 89 , 074 , 027 , 024,1 05,1 22 
5826 : 1 76, 1 57 , 234, 031 , 202 , 224,1 94 
58 3 2 : 2 55 , 2 08, 21 5,1 6 2,00 3,1 60,1 7 9 
58 3 8 : 1 28,1 36,1 92 , 255 , 208,251 ,096 
5844 : 202 , 224 , 255 , 208 , 244, 1 73,238 
5850 : 1 95 , 003 , 024 , 105 , 176 , 141 , 094 
5 8 56 : 249, 031 , 1 73,1 93 , 003,201 ,050 
5862 : 01 0 , 1 60,1 76 , 144 , 004 , 200,156 
5 868 : 056 , 233,01 0,1 40 , 245,031 , 1 83 
5874 : 024, 1 05,1 76,1 41 , 246,031 , 1 97 
5880 : 076,1 28 , 026 , 234 , 234 , 234,1 56 
588 6 : 234 , 234 , 254 , 074 , 003 , 254, 027 
5892 : 074 , 003 , 234 , 234 , 234 , 189,204 
58 98 *. 074 , 003,041 , 240,201 , 096,1 53 

590 4 : 1 44 , 005 , 076 , 058 , 023 , 234,044 

591 0 : 234,1 3 4,1 7 8 , 032 , 044 , 023, 1 55 

591 6 : 01 0 , 010 , 010,01 0 , 01 0,1 33,21 1 

592 2 : 1 79,1 89 , 067 , 003,041 , 007,008 
592 8 : 076 , 069 , 02 3 , 2 3 4 , 024, 1 0 5, 0 59 
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5934 

5940 

5946 

5952 

5958 

5964 

5970 

5976 

5982 

5988 

5994 

6000 

6006 

6012 

6018 

6024 

6030 

6036 

6042 

6048 

6054 

6060 

6066 

6072 

6078 

6084 

6090 

6096 

6102 

6108 

61 1 4 

61 20 

6126 

61 32 

61 38 

61 44 

61 50 

6156 

6162 

6168 

6174 

61 80 

61 86 

61 92 

6198 

6204 

6210 

621 6 

6222 

6228 

6234 

6240 

6246 

6252 

6258 

6264 

6270 

6276 

6282 


: Q 32 , 133 , 253 , 234 , 234 , 234,142 
: 1 73 , 063 , 003 , 096 , 234 , 234,087 
: 1 69 , 096, 1 57 , 074 , 003 , 141 , 1 86 
: 1 69,00 3 , 076 , 023,0 2 3 , 024,1 26 
: 1 01 , 1 79,1 33,1 79,1 05 , 008,007 
: 1 33,1 77, 1 69 , 000,1 41 , 1 69,097 
; 003,1 66 , 253,07 6, 0 5 8 , 020, 1 4 6 
: 2 34 , 234 , 234,2 34,2 34 , 234, 21 2 
: 2 34 , 234, 1 62,0 00,1 69 , 000,1 2 5 
: 1 57 , 082 , 027 , 1 69 , 048 , 157,228 
: 2 50 , 027 , 232,22 4,00 5 , 208,028 
; 241 , 238 , 096 , 026,1 69,01 4,1 2 8 
: 1 41 ,01 5,1 44 , 1 6 2 , 060,1 69,041 
: 000 , 1 57 , 000 , 003,2 32 , 224,22 8 
: 24 8, 1 44,2 4 8,0 56,07 6,051 ,1 8 5 
: 025 , 234 , 234 , 234 , 234 , 234,051 
: 234 , 2 34 , 1 73 , 194,00 3,201 ,1 57 
s 001 , 240 , 003 , 076 , 000 , 024,2 36 
= 141 , 01 2 , 144 , 076 , 191 , 234,184 
: 1 69 , 032, 1 33 , 2 54,1 69,01 6,1 65 
: 157 , 074 , 003 , 169 , 000 , 141 ,198 
:1 60 , 003,141 ,01 2 , 144 , 157,021 
: 070 , 003 , 157,071 , 003 , 169,139 
: 144, 141 , 013 , 144 , 238 , 170,010 
: 003 , 189 , 067 , 003 , 074 , 074,088 
: 024, 1 0 5 , 006, 20 1 , 01 0,1 44 ,1 74 
: 008 , 233, 01 0,23 8 , 071 , 027,021 
: 0 76,1 99 , 023,1 09,0 72 , 027,202 
; 1 41 , 072 , 027 , 076 , 224,021 ,007 
: 23 4 , 234 , 2 34 , 23 4 , 23 4 , 234 , 08 8 
; 234 , 2 3 4 , 234 , 234 , 234 , 234, 094 
; 234 , 234 , 234, 2 34 , 234 , 234, 1 00 
: 234 , 23 4 , 2 34 , 2 34 , 234 , 2 34, 1 06 
: 234 , 234 , 234 , 2 34 , 2 34 , 2 34,1 1 2 
; 234 , 234 , 234 , 2 34 , 234 , 234,11 8 
: 173 , 060,00 3 , 074 , 074 , 074,202 
: 1 70, 1 69 ,1 27 , 141 , 034, 1 45, 024 
: 1 73,031 , 1 45,041 ,01 6 , 208,1 1 4 
: 006 , 206 , 060,00 3 , 206 , 060,047 
: 00 3,1 73,0 32,1 45,0 41 ,1 28,034 
: 20 8, 0 06, 2 38 , 060,00 3 , 238,01 5 
* 060 , 003,1 73,031 , 1 45,041 ,233 
: 03 2 , 240, 0 27 , 1 73 , 060 , 003,065 
: 201 , 000, 20 8 , 005 , 1 69 , 002,1 21 
: 1 41 , 06 0,00 3,1 73 , 060,00 3,2 38 
: 201 , 166,20 8 , 005 , 169,1 64,205 
: 1 41 , 060,00 3,0 76,1 92 , 024,0 50 
: 076 , 064,021 , 234 , 2 34 , 234 , 1 67 
: 2 34 , 2 34, 1 73 , 060 , 003, 041 ,055 
: 0 06,1 70,1 60,01 5,1 85,01 6,1 24 
: 029,1 53 , 224 , 028,1 36,1 92,084 
: 2 55,20 8 , 245 , 234 , 234,2 34,226 
: 224 , 000, 2 40, 0 38 , 1 60 , 01 5,01 1 
: 1 85 , 224,02 8 , 074,1 53 , 224,228 
: 0 2 8 , 1 44,00 8,1 85 , 232 , 028,227 
; 00 9, 1 28, 1 53 , 2 32 , 028, 1 36, 038 
: ì 92 , 255 , 208 , 234 , 202 , 076,013 
: 102 f 024 , 234 , 234 , 234 , 234,170 
: 2 34 , 234 , 234,2 34,2 34 , 234,006 



6288 

: 1 73 

,060 

,003 

,074 

,074 

,074 

,090 

6294 

= 170 

,169 

,028 

,157 

,184 

,031 

,1 21 

6300 

; 2 3 4 

,234 

,16 9 

,029 

,157 

, 1 85 

,140 

6306 

: 031 

,169 

,255 

,141 

,034 

,145 

,169 

6312 

; 234 

,234 

,234 

,234 

,234 

,234 

,036 

631 8 

:1 73 

,060 

,00 3 

F 1 41 

,061 

,003 

,103 

6324 

: 201 

,254 

,208 

,005 

,169 

,000 

,249 

6330 

; 1 4 1 

,060 

,003 

,076 

,000 

,022 

,232 

6336 

: 1 73 

,060 

,003 

,205 

,061 

,003 

,185 

6342 

: 240 

,200 

,173 

,061 

,003 

,07 4 

,1 81 

6348 

: 074 

,074 

,170 

,169 

,032 

,157 

#112 

6354 

;1 84 

,031 

,157 

,185 

,031 

,076 

,106 

6360 

: 080 

,024 

,234 

,234 

,234 

,076 

,074 

6366 

:229 

,026 

,169 

,144 

,141 

, 020 

, 183 

6372 

: 00 3 

,169 

,023 

,141 

,021 

,003 

,076 

6378 

: 1 6 9 

,159 

,141 

,014 

,144 

,169 

,006 

6384 

: 255 

,141 

,005 

,144 

,162 

,000 

,179 

6390 

: 1 69 

,000 

,157 

,068 

,027 

,232 

,131 

6396 

: 224 

,014 

,208 

,248 

,169 

,003 

,094 

6402 

: 1 4 1 

,195 

,003 

,169 

,147 

,032 

,177 

6408 

:210 

,255 

,169 

,000 

,141 

,193 

,208 

641 4 

*003 

,169 

,080 

,141 

,060 

,003 

,214 

6420 

: T 62 

,000 

,169 

,003 

,157 

,000 

,255 

6426 

: 1 51 

f 169 

,012 

ri 57 

,228 

,150 

,125 

6432 

: 1 57 

, 000 

,150 

,232 

,224 

,000 

,027 

6438 

: 20 8 

,238 

,173 

,096 

,026 

,201 

,212 

6444 

: 000 

,208 

,003 

,076 

,096 

,023 

,194 

6450 

: 0 24 

,176 

,168 

,234 

,162 

,000 

,046 

6456 

: 1 89 

,0 96 

,027 

# 1 57 

,2 28 

,031 

,016 

6462 

l 232 

,224 

,022 

,208 

,245 

,096 

,065 

6468 

: 234 

,234 

,162 

,000 

,189 

,082 

,201 

6474 

: 02 7 

,221 

,074 

,027 

,240 

,005 

,156 

6480 

= 176 

,030 

,076 

,095 

,025 

,232 

,202 

6486 

: 22 4 

,005 

,208 

,238 

,076 

,112 

,1 81 

6492 

: 02 5 

,162 

,000 

,1 89 

,074 

,027 

,057 

6498 

:1 57 

,082 

,027 

,024 

,105 

,048 

,029 

6504 

il 57 

,2 50 

,027 

,232 

,224 

,005 

,231 

6510 

: 20 8 

,239 

,162 

,000 

,169 

,000 

,120 

651 6 

:1 89 

,128 

,027 

,032 

,210 

,255 

,189 

6522 

: 232 

,224 

,128 

,208 

,245 

,096 

,231 

6528 

:1 62 

,000 

, 1 60 

,002 

, 1 52 

,157 

,249 

6534 

: 067 

,003 

,169 

, 000 

,141 

,01 3 

,01 5 

6540 

: 1 44 

,157 

,074 

,003 

,157 

,075 

,238 

6546 

: 0 0 3 

,138 

,157 

,066 

,003 

,024 

,025 

6552 

; 1 05 

,01 2 

, 1 70 

,224 

,083 

,144 

,122 

6558 

: 229 

,096 

,162 

,000 

,169 

,029 

,075 

6564 

: 1 33 

,177 

,169 

,234 

,133 

,176 

,162 

6570 

: 1 65 

,176 

,024 

,105 

,022 

,133 

,027 

6576 

zi 76 

, 1 44 

,002 

,230 

,1 77 

#157 

,038 

6582 

: 2 5 5 

,026 

,165 

,177 

,157 

,031 

,225 
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6588 =027,232,224,031 ,144,232,054 
6594 : 032, 224, 024,1 69,000,1 41 ,016 
6600 : 160,003,032,1 28,025,076,1 12 
6606 : 000, 01 8 , 1 62 , 000 , 1 38 , 1 57 , 1 69 
6612 : 000, 028,1 57,032,028, 157,102 
661 8 : 064, 028,1 57,096,028,1 57,236 
6624 :1 28,028,157,160,028,1 57,114 
6630 : 192,028,232,224, 032, 144,058 
6636 : 230,096, 189,072,003, 1 57,21 5 
664 2 : 064, 003,1 89,073,003,1 57,21 9 
6648 : 065, 003, 096, 234 ,234, 234, 090 
6654 : 234,234, 173,1 70,003,201 ,245 
6660 : 007,1 76,003,076,074,026,110 
6666 : 162, 000, 169, 032, 157, 000, 01 8 
6672 ; 030,1 57,000,031 ,232,224,178 
6678 : 000, 208, 245,1 69,000, 141 ,017 
6684 : 192, 003, 024, 173, 193, 003, 104 
6690 : 105, 001 ,041 ,015,141,193,01 8 
6696 : 003, 169, 000, 141, 192, 003, 036 
6702 : 141 ,170,003,141 ,169,003,161 
6708 : 032,1 28,025,032,054, 025,092 
6714 : 076, 000, 01 8,000,255,255,150 
6720 : 255,255,255,250, 255, 152,206 
6726 : 255,085,255,255,165,203,008 
6732 : 201 ,064,208,003,076,000,116 
6738 : 01 8, 076, 160, 025, 020, 254, 123 
6744 : 255,000,087,255,085,084,086 
6750 : 000,1 91 ,000,000,000,255,028 
6756 : 000, 255, 000, 255, 255, 01 6,11 3 
6762 : 170, 255, 084, 085, 136, 067, 135 
6768 : 190, 255, 000, 255, 000, 255, 043 
6774 : 000, 000, 064, 255, 000, 255, 180 
6780 : 000, 000, 255, 255, 162, 000, 028 
6786 : 189,067,003,201 ,148,144,114 
6792 : 022,1 89,066,003,024,105,033 
6798 : 003,205,061 , 003, 1 44 , 01 1 ,057 
6804 : 056, 233, 007, 205, 061, 003, 201 
6810 : 176, 003, 076, 173, 026, 138, 234 
6816 : 024, 105, 01 2, 170, 224, 083, 010 
6822 : 144, 21 8,076,000,026,234,096 
6828 : 234, 206, 193, 003, 169, 007, 21 6 
6834 : 1 41 , 1 70 , 003>206 , 1 95,003 , 1 28 
6840 ri 73,1 95,003,201 ,000,240,228 
6846 j 038, 169, 001 , 1 41 , 1 94 , 003, 224 
6852 ; 1 41 , 01 3 , 1 44 , 1 60 , 255 , 1 62 , 047 
6858 : 001 ,140,012,144,140,015,142 
6864 : 144,202,224,001 ,208,251 ,21 4 
6870 : 136, 192, 064, 208, 238, 169, 197 
6876 : 000, 141 ,194,003,076,000,122 
6882 :026,234,234,169,000,141 ,006 
6888 (014,144,141 ,169,003,141 ,076 
6894 (192,003,238,194,003,032,132 
6900 (070,025,165,203,201 ,064,204 
6906 (240,250,076,160,025,234,211 
691 2 (234,234,234,234,234,234,124 
6918 (234,234,234,234,234,234,130 
6924 (234,234,234,234,234,234,136 
6930 (234,234,234,234,234,234,142 
6936 (234,234,234,234,234,234,1 48 



6942 (234,234,234 
6948 (234,234,234 
6954 (234,234,234 
6960 (234,234,234 
6966 (234,234,234 
6972 (234,234,234 
6978 (234,234,234 
6984 (234,234,000 
6990 (002,234,000 
6996 (009,004,002 
7002 -.234,234,234 
7008 (147,131,143 
7014 (176,176,176 
7020 (151,129,150 
7026 (176,160,033 
7032 (234,234,234 
7038 (234,234,005 
7044 (083,032,084 
7050 (079,032,045 
7056 (065,032,078 
7062 (067,013,032 
7068 (156,070,079 
7074 (072,069,032 
7080 (032,050,048 
7086 (158,032,032 
7092 (032,032,032 
7098 (032,032,032 
7104 (013,032,032 
7110 (159,018,032 
7116 (032,032,032 
7122 (032,018,030 
7128 (082,069,083 
7134 (078,089,032 
7140 (013,031,032 
7146 (073,071,072 
7152 (079,082,069 
7158 (000,000,000 
7164 (048,050,051 
7170 (000,255,255 
7176 (255,255,255 
7182 (255,250,255 
7188 (168,255,000 
7194 (000,255,255 
7200 (255,255,255 
7206 (255,255,255 
7212 (255,250,251 
7218 (255,166,000 
7224 (255,000,000 
7230 (255,255,168 
7236 (255,170,255 


,234,234,234,154 
,234,234,234,160 
,234,234,234,166 
,234,234,234,1 72 
,234,234,234,178 
,234,234,234,184 
,234,234,234,190 
,002,000,003,033 
,000,000,002,060 
,234,234,234,033 
,234,234,234,214 
,146,133,189,217 
,176,176,160,11 8 
,133,189,176,012 
,1 76,032,032,211 
,234,234,234,244 
01 8,065,032,202 
,032,082,032,221 
,032,080,032,1 82 
,032,073,032,200 
,032,032,01 8,088 
,082,032,084,147 
,086,073,067,049 
,013,032,032,119 
,032,032,032,236 
,032,032,032,116 
,032,032,032,122 
,032,032,032,109 
,032,032,032,247 
,032,032,01 3,121 
,032,032,080,178 
,083,032,065,118 
,075,069,089,142 
,01 8,032,072,170 
,032,083,067,120 
,058,005,000,021 
,000,048,048,086 
,000,255,084,228 
,255,255,000,254 
,255,255,255,002 
,255,255,212,216 
,255,000,255,185 
,251 ,017,000,036 
,255,255,000,027 
,191 ,246,255,215 
,255,255,083,113 
,252,255,255,209 
,255,255,000,053 
,255,000,000,227 
,000,255,255,234 
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7242 

7248 

7254 

7260 

7266 

7272 

7278 

7284 

7290 

7296 

7302 

73 0 8 

731 4 

7320 

7326 

7332 

7338 

7344 

7350 

7356 

7362 

7368 

7374 

7380 

7386 

7392 

7398 

7404 

7410 

741 6 

7422 

7428 

7434 

7440 

7446 

7452 

7458 

7464 

7470 

7476 

7482 

7488 

7494 

7500 

7506 

7512 

751 8 

7524 

7530 

7536 



: 1 62, 004, 2 55 ,2 55 ,255,255,236 
: 255,2 55,2 55, 000, 2 55,255,075 
: 2 55, 255, 255, 2 55, 2 55, 255, 080 
: 2 55, 255, 004, 191 ,000,255,02 8 
: 2 55, 2 55, 2 55, 2 55, 2 55, 2 55, 092 
: 2 55,2 55, 000, 1 2 8, 255,2 55,228 
: 255,255,1 91 ,085,255,255,126 
: 000, 2 38, 000, 2 55, 230, 1 71 ,242 
: 2 55, 2 55, 1 68,255,255,255,029 
: 000, 008, 2 52, 004, 000, 000, 1 36 
: 255,000, 255,000,255,1 87,062 
:000, 000,220,000,000, 255, 103 
: 2 55, 0 20, 008, 02 0,000, 000,1 93 
:000, 000, 000,000,000,064,21 6 
: 000, 000, 020, 000, 084, 2 55, 005 
: 000, 004, 2 55, 2 55, 000, 000 ,1 66 
:000, 000, 000,1 36,000,000,050 
:000,000,000,020,000,000,196 
: 000 , 000 , 000 , 020 , 000 , 000,202 
: 000,0 64, 000,000,000,000,2 52 
:255, 2 55, 020, 000, 000, 000, 21 2 
:1 29,000,255,255,068,255,1 38 
: 238, 239, 000, 136, 168,255,21 8 

1255.000. 000.000.132.255.086 
1000,255,255,016,220,040,236 

1000.000. 000.255.000.084.051 

1000.000. 008.128.000.020.130 

1034.000. 000.085.000.000.099 

1000.255.000. 213.21 3.064.21 9 

1000.008.255.255.21 3.000. 211 

1255.255.000. 000.000.000.252 
: 000, 000,000, 000,000,008,01 2 

1028.062.062.042.000. 000.204 
; 01 2,01 2,063,063,2 51 ,21 7,1 22 
;217,200,000,000,000,000,183 
li 92,1 92,1 92,192,01 2,063,103 
: 085,1 36,1 36,085,063,01 2,039 
: 000,000, 064,1 28,1 28,064, 168 

1000.000. 003.015.021.034.119 
:034,021 ,015,003,000,192,061 

1080.032.032.060.1 92.000. 218 
1000,003,005,008,008,005,093 
:003,000,1 92,240,084,1 36,213 

1136.084.240.192.000. 000.21 6 
: 001 ,002,002,001 ,000,000,088 
1048,252,085,034,034,085,114 
1252,048,160,042,043,1 75,046 
: 047,1 71 ,042,008,160,168,1 84 
1234,248,250,224,168,032,238 
1130,034,042,175,043,010,034 


7542 1042,136,002,136,160,170,252 
7548 1232,170,168,034,032,002,250 
7554 :136,043,142,034,128,034,135 
7560 :130,008,136,176,130,032,236 
7566 1044,002,032,003,000,003,226 
7572 il 62,000,048,008,032,000,142 
7578 1002,136,000,050,128,004,21 8 
7584 1000,000,000,000,000,000,160 
7590 1000,000,000,000,000,000,166 
7596 :000,000,000,000,000,000,172 
7602 1000,020,000,000,000,000,198 
7608 1000,004,000,000,000,064,252 
7614 1000,000,000,000,245,255,178 
7620 : 004 , 000,000,000, 12 9,000,073 
7626 1255,255,068,255,174,239,168 
7632 1000,000,004,255,253,000,208 
7638 1000,000,164,255,000,255,120 
7644 :255,016,149,032,002,001 ,163 
7650 :00 2,001 ,002,001 ,002,001 ,235 
7656 il 92,1 28,1 92,1 28,1 92,1 28,1 68 
7662 1192,128,000,000,000,255,045 
7668 1000,21 3, 000, 000, 000, 000, 201 
7674 1000,000,000,000,000,000,250 
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di R* D. Gitasi 

trad. ed adatt. 

di M. Crl.tmJb GHiii 


Ovetto breve proftieea coeti- 
«vlece mm piccolo databile per 
l’ércblvlesfloee di Indlrlul» eaol- 


ite efficiente. 

V1C 20 che eoi C64, e pmò 

eie U floppy dleh che le ceeeette 


S e collezionate foglietti di carta pieni 
di indirizzi e di numeri di telefono, 
o se avete una rubrica indirizzi che sta 
diventando sempre più Illeggibile mano 
a mano che aggiornate gli indirizzi stessi 
a eliminate i più vecchi, è ora di cambia- 
re. 

Questo programma permette un acces- 
so istantaneo ai nomi, indirizzi e numeri 
di telefono. Offre inoltre alcune caratte- 
ristiche spedali, come l'ordinamento al- 
fabetico e la ricerca automatica di un 
nome nell 'archivio. 

Aggiungere dei record al file o "‘editare” 
il file stesso è molto semplice, dal mo- 
mento che il programma accetta I co- 
mandi attraverso un menu e la risposta 
alle domande del computer è tutto dò 
che viene richiesto alt 'utente. 

Il programma è “ unificato" e funziona 
sla sul C64 che sul V1C 20 con o senza 
espansione di memoria. 

Scelte Molto staplld 

Dopo aver caricato il programma date- 
gli Li RUN. Apparirà il menu principe- 


1. Carica file 

2 . Agg./lniziile 

3. Edlt file 

4* Visualizza file 
5, Save e fine 

Per creare il file Indirizzi selezionate 
l'opzione 2. H numero del record ( # 1, 
se state Iniziando un nuovo file) appare 
nella parte afta dello schermo. Vi viene 
quindi richiesto il cognome, il nome, la 



via (non digitate la virgola prima del 
numero civico, in quanto viene usata 
una normale Istruzione di INPUT), la 
città. Il CAP ed II numero di telefono. 
Se decidete di non inserire dati In un 
campo (ad esempio, non sapete l'Indi- 
rizzo di una persona), premete sempli- 
cemente RETURN. Alla fine degli Inse- 
rimenti per ogni record, potrete sceglie- 
re tra “Successivo” (cioè continuare nel- 
rinserimento dati), “Cancella” (Il record 
appena digitato non viene inserito in 
memoria) o “Fine” (per ritornare al me- 
nu Iniziale). 

Quando avete finito di inserire l dati che 


vi servono selezionate l'opzione 5 per 
salvare il file. Il programma vi chiederà 
se volete usare il disco o la cassetta, ed 
LI file verrà quindi salvato sulla memoria 
di massa. Chi usa 11 registratore dovrà 
prevedere un'unica cassetta contenen- 
te, come prima registrazione. Il file dati 
registrato da questo programma. 

Dopo che II file è sfato creato e salvato 
disponete dei dati registrati In modo 
permanente su un supporto magnetico. 
Quando darete ancora II RUN al pro- 
gramma potrete quindi usare l’opzione 
1 per ricaricare 11 file in memoria centra- 
le. Per aggiungere nuovi record al file 
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usate ancora l'opzione 2: il numero di 
record visualizzato nella parte alta dello 
schermo sarà pari al numero di record 
già esistenti nel file, più uno. 

Se volete operare un edit del file (ad 
esempio per modificare un numero di 
telefono), selezionate l'opzione 3: il prò* 
gramma vi chiederà di digitare il cogito- 
me della persona interessata. Verranno 
visualizzate tutte Le informazioni concer- 
nenti quella persona, e quindi potrete 
scegliere cosa modificare dal seguente 
menu: 

1, Cognome 

2, Nome 

3, Via 


4. Città 

5. CAP 

6. Telefono 

7. Cancella 

Selezionando una delle prime set opz:o* 
ni, verrà visualizzato il contenuto del 
campo relativo ed il programma chiede» 
rà di inserirne il contenuto corretto 
L'opzione 7 permette invece di cancel- 
lare Il record dai file. 

L'opzione 4 del menu principale richia- 
ma invece un altro submenu, in cui po- 
trete scegliere tra il vedere un elenco 
alfabetico di tutti i nomi contenuti nel 
file, un nome individuale, oppure ritor- 
nare al menu principale. 


Il omero del record 

Il programma è stato scritto in modo da 
permettere 12 record nel VIC ìnespan- 
so (purtroppo la sua memoria è quella 
che è.J e 200 nel C64, Per aumentare 
il numero dei record incrementate il va- 
lore della variabile L in linea 10. 

Nat esimerne, se non inserite delle 
espansioni di memoria e modificate 
quest: valore, otterrete prima o poi un 
mutabile ^GUT OF MEMORY ER 
RORT con perdita di tutti i dati Inseriti. 
Chi possiede il C64 deve notare che 
può essere incrementato solo il secondo 
valore di L al termine della linea 10). 


Da piccolo database 
twiIom par VIC 2 # 


10 L-l 2:SYS6S51 7sA-PEEK(781 ) :Q$*CHR$ (13) : 

1 FA" 4 OTHENPOKE5 3281 , 1 5 : L* 2 0 0 stero 241 
20 DIMH$(L,6) , N$ (6) SFORI » 1T06 : READN$ (I) :N 
EXT :rera 93 

30 D ATACOG NOME , NOME , VI A , C ITTA * , CAP , TELEFO 
NO :rem 60 

40 PRINT" {CLR} { 2 GIU’H 3 DBS J { RVS } [ BLK } 
PICCOLO DBASE"Q$"( 2 GIU 1 }{ DES ] 1 . . CARI 
CA PILE M Q$ , MGIU 1 }(DES}2..AGG./INIZ- FI 
LE" I rem 1 B B 

50 PRINT" (GIU 1 }{DES} 3, -EDIT FILE"Q$ 11 
{GIU* } {DES }4 . -VISUALI 22 A FILE"Q$" 
j G I U 1 } { DES } 5 * . S AVE E FINE" itera 240 
60 INPUT" { 2 GIU 1 }SCELTA" ; B :ONBGOSUB4 50 , 7 
0,130, 240, 45QtGOTO40 srem 120 

70 N*N+1 :PRINT" {CLR} RECORD 4"N:FORJ= 1 T06 : 
PRINTG$"(DESJ {RVS){BLK}"!NS (J) ?" {OFF} 
l BLU } " : I NPUTM$ ( N , J ) :rem 35 

80 NEXTJ: PRINT" {GIU r } { RVS } S [OFF } UCCESSI V 
O { RVS }C (OFF) ANCELLA { RVS J F (OFF) INE" 

: reta 8 5 


90 GETA$:IFA$ = ,M< 0 R(A$O 1 , S"ANDA$O"C"ANDAS 
<>"P" ) THEN 9 G ; rem 210 

100 IFA$»"S"THEN 70 :rem 239 

110 IFA$*"F"THEN 4 Q :iem 224 

120 N-N-l : GOTO 70 treni 164 

1 30 GOSU 866 Q:FORI*lTON:lFB$*M$ (I ,l)TH£Nì 5 

0 : r era ì 8 

1 40 NEXTI : PRINT" {CLR} (GIU 1 } *B$" (GIU 1 >NON 
E' NEL PILE . " : GOSU B 6 2 0 ; GOTO 4 0 : r era 52 

150 GOSUB 650 ; PRINT" {GIU* ICOSA MODIFICHI:" 
: FORJ*l T 06 : PRINT" {DES }™ J" . . "N$ (J) :NEX 
T :retn 3 

160 PRINT" { 2 DES } 7 . . CANCELLAI GIU 1 J ": INP 
UT"COSA SCEGLI"? J : I FJ< 1 ORJ> 7 THENl 60 

: rem 14 3 

170 IFJ- 7 THEN 210 itera 167 

180 PRINT" {CLR} ( RVS } "M$ ( I , 1 } " , "MS ( 1 , 2 ) 

sreta 80 

190 PRINT" {GIU 1 } {RVS H BLK] VECCHIO "NS(J)" 
E * { BLU } " : FRI NTM6 ( I , J ) QS Q$ " £ RVS ] {BLK} 
CORRETTO "N6(JJ" E 1 {BLU}" treni 97 

200 INPUTMS (I,J) :GOSUB620:GOT0220 

:reta 252 


210 FORA* ITON- 1 : FORJ = 1 T06 : M$ (A, J)*MS (A+l , 
J) : NEXTJ, A: N-N-l trem 160 

220 PRINT" {CLR} (GIU 1 }{ DES ] VUOI : "Q$" {GIU 1 } 
{DES}1 , -CONTINUARE EDIT"Q$ " (GIU 1 } 
{DEE} 2- .RITORNARE AL MENU { 2 GIU'}" 

: reta 68 

230 INPUT" (DESjCOSA SCEGLI " ; B : ONBGOTOl 30 , 
4 0 : GOTO 2 30 : rem 94 


240 


250 


260 


270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 


390 

400 

410 


PRINT" {CLR} ( BLK }{ GIU 1 } QUALE VUOI? "OS" 
{GIU 1 } { DES } 1 . . ALFABETICA"QS" {GIU 1 } 
{DES} 2, .INDIVIDUALE" iretr. 104 

PRINT" {GIU T }{DES} 3. .MENU { 2 GIU'}": IN 
PUT"COSA SCEGLI"; BrONBGOTO 260, 41 0,40: 
GOTO250 : rem 41 

G“N : IFN* 0THENPRI NT" {GIU 1 )IL FILE E ' V 
UOTOl " :FORI*?T02000:NEXT:GOT040 

•rem 107 

G*I NT (G/2) : rem 1 

IFG* 0THEN38O :rem 167 

FORA*! TON-G trem ISO 

IFHS ( A, 1 ) <*M$ ( A+G , 1 ) THEN350 sretn 148 
R$-M$(A,1) : SS*M$ (A, 2) :T3-M$(A,3) :U$-M 
$ (A, 4) : V5*M$ ( A , 5} :WS=M$(A,6) : reta 70 
FORJ* 1 T06 : MS (A , J} «M$ ( A+G , J) : NEXT 

treni 97 


MS {A+G , 1 ) «R$;K$ (A+G, 2) *S$:MS (A+G, 3) -T 
5 : MS (A+G , 4) *U$:M$ (A+G, 5) -VS :rem 43 

M$ (A+G, 6) -WS :E*A srem 35 

NEXTA : rem 24 

IFE-0THEN270 :rem 1 62 

E* 0 : GOT02 80 :rem 89 

PRINT" {CLR}" : L* 0 : FOR 1*1 TON : L* L+ 1 SPRIN 
TM$ (1,1)", "M$ (1,2) : IFLOl 0THEN4O0 


; rem 225 

L-0:GOSUB620ì PRINT" {CLR} " :rem 69 
NEXTI : GQSUB6 2 0 : GOTO 240 trem 119 

GOSU B6 6 0 : FOR I * 1 TON : I FB$ - MS (1,1) THEN44 


0 


21 
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4 20 NEXTI : rem 30 

430 PRINT" {CLR} 1 2 GIU' }" ; BS :PRINT" (GIU' ) 
NON E' NBL FILE" i GOSU8620 : G0T02 40 

irem 139 

440 GOSUB650:GOSUB62Q: GOTO 2 4 0 irem 14 

450 PRINT" (CLR)DISCO 0 CASSETTA (D/C)" 

:rem 29 

460 GETES : IP (E$<>"D"ANDES<> n C")ORE$»""THE 
N460 irem 249 

470 IFES-"D"THENF$»"80i INDIRIZZI":?») iGOT 
0490 irem 214 

480 F$-"INOIRIZZI"iF-0:G$-"" irem 86 

490 IFB-5THEN540 irem 168 

500 IFF-lTHBNGS»" ,S,R" I rem 240 

510 OPEN) , 1+7*F,8*F,F5+GS:GOSUB580 

irem 127 

520 INPUT# 1 , Ni FORI- ITONi FORJ"lT06 

! rem 1 1 2 

530 INPUT#! ,M$ (I, J) iNEXT: NEXTiGOSUB580 iCL 
OSE1 i GOSUB580 : GOTO40 irem 129 

540 IFF-1THENGS-" ,S,W" item 249 

550 OPEN1 ,l+7*F,1+7*P,FS+G$iGOSUB58Q 

irem 222 

560 PR I NT# 1 » N i FOR I ■ 1 TON : POR J - 1 T06 

:rem 113 

570 PRINTtl ,M$ (I , J) iNEXT: NEXTiGOSUBSBO iCL 
OSEl :GOSUBS80iEND irem 188 

580 IFF-OTHENRETURN irem 238 

590 IFO-OTHENOPEN1 5,8, 15:0») :rem 157 

600 INPUT#15,A,BS,C,D:IFATHENPRINTA,B$,C, 
DiSTOP irem 133 

610 RETURN irem 119 

620 PRINT" ( 2 GIU ' ) {RVS} ( BLKlUN TASTO PER 

CONTINUARE" irem 58 

630 GETAS i IFAS-""THEN630 :rem 85 

640 RETURN :rem 122 

650 PRINT" (CLR) (GIU 1 )"MS (I ,1 )" , "MS(I,2)Q 
$M$ ( I , 3 ) QSMS ( I , 4 ) " "M$(I,5)QSHS (1,6) i 
RETURN : rem 1 BB 

660 PRINT" (CLR) (GIU' }{ 3 DES 5 QUALE RECORD 
"QS"{ 3 DES) VUOI (COGNOME) 7": INPUT" 

{ 2 GIU')"jBS: RETURN irem 117 


Un piccolo ditabate 

verelene per C-16 

LORI ,2 

110 DIMM? (L,6) ,NS (6) i FORI-1 T06: READNS (I) I 
NEXT 

1 20 DATACOGNOMÉi NOME, VIA , CITTA* ,CAP,TELEF 

ONO 

130 PRINT" (CLR) { 2 GIU' ) t 3 DES ) (RVS ) AGEN 
DA TSLEFONICA"QS" { 2 GID ’ ) {DES ) 1 . . CAR 
ICA FI L£"Q$" (GIU 1 ) (DES)2. .AGG./INI2. 
FILE" 

140 PRINT" ( GIU 1 ) (DES ) 3 . . ED1T FILE"QS" 
(GIU’ )(DES)4. .VISUALIZZA FILE"QS" 

1 GIU ' }(DES) 5. .ELENCO COMPLETO" 

150 PRINT"(GIU')(DES)6..SAVE E FINE" 

160 INPUT" ( 2 GIU' ) SCELTA" ;B:ONBGOSUB5 50, 
170,230,340,770,550: GOTO 1 30 


170 N-N+l : PRINT" (CLR) RECORD #"N: PORJ- 1 T 06 
: PRINTQS" (DES) (RVS)*{N$ (J) ; "{OFF}": IN 
PUTMS (N, J) 

180 NEXTJ: PRINT” (GIU* } (RVS)S (OFF)UCCESSI 
VO (RVS )C (OFF) ANCELLA (RVS)F(OFF} INE" 

1 90 GETAS : I FAS - " "OR < A$ < > " S* ANDAS < >"C " ANDA 
$<>"?" ) THEN ) 90 
200 IFA$-"S"THENl 70 
210 IFAS-"F"THENl 30 
220 N-N-l iGOTOl 70 

230 GOSUB 760 : FORI - 1 TON : IFBS-MS ( 1 , 1 ) THEN 25 
0 

240 NEXTI : PRINT" (CLRHGIU 1 ) "BS" (GIU 1 3 NON 
E' NEL FILE.":GOS’JB 720 iGOTOl 30 
250 GOSUB 7 SO! PRINT" (GIU’ JCOSA MODIFICHI:" 
: PORJ- 1 T 06 ; PRINT" (DES) " 3 " . . "N$ (J) iNEX 
T 

260 PRI NT" { 2 DES: 7 .. CANCELLAfGIU' ) " i INP 
UT" COSA SCEGLI",* J : IFJ< 10 RJ> 7 THEN 2 60 
270 IFJ- 7 THEN 310 

2 B 0 PRINT" (CLR) (RVS ) "MS ( 1 , 1 )", "M$(I, 2 > 
290 PRINT" {GIU ' ) {RVS ) VECCHIO "NS(J)“ E’"i 
PRINTMS (I , J)QSQS" {RVS ) CORRETTO "NS (J> 

■ £ t 11 

300 INPUTMS(I,J) :GOS'JB 720 ! GOTO 320 
31 0 FORA-ITON- 1 i FORJ- 1 T 06 : MS (A,J) -MS (A+ 1 , 
J) i NEXTJ , A:N-N -1 

320 PRINT" (CLR) (GIU’ 3 [DES } VUOI i "QS " (GIU ' } 
( DESÌI ..CONTINUARE £DIT"QS" (GIU 1 } 
(DES) 2 . .RITORNARE AL MENU { 2 GIU 1 )" 
330 INPUT" {DESJCOSA SCEGLI"; B:ONBGOTO 230 , 
1 30ìGOTO330 

340 PRINT" (CLR) (GIU' ) QUALE VUOI?"Q 5 “ 

(GIU* ) (DES } 1 . . ALFABETICA"Q$" (GIU’ ) 
(DES) 2 . .INDIVIDUALE" 

350 PRINT" (GIU* }( DES) 3 . .MENU { 2 GIU')":IN 
PUT"COSA SCEGLI 8 : OX 8 GOTO 360 , 510,130 
:GOTO 350 

360 G-N: IFN- 0 THE SPRINT” (GIU ‘ ) IL FILE E’ V 
DOTO! * :FORI»!TO 200 C : NEXT: GOTO 1 30 
370 G-INT(G/ 2 ) 

380 IFG- 0 THES 480 
390 FORA- 1 TON-G 

400 IFMS (A, 1 ) <-MS (A*G, 1 ) THEN 450 
410 RS-MS [A,l ) iSS-MS (A, 2 ) :TS-MS (A, 3 ) :U$-M 
S (A, 4 ) :V$-M$ : A, 5 ) : «S-MS (A, 6 ) 

4 20 FORJ- 1 T 06 ; MS [A,J)-MS (A+G,J) iNEXT 
430 MS (A+G, ! ) -RS :MS : A+G, 2 ) -SS :MS (A+G, 3 ) -T 
Si MS (A+G, 4 ) -US: MS (A+G, 5 )-V$ 

440 MS (A+G , 6 ) -WS :E-A 
450 NEXTA 
460 IFE- 0 THEN 370 
470 E- 0 :GOTO 380 

480 PRINT" (CLR: n :L-OiFORI-lTON:L-L+l iPRIN 
TM S ( 1 , 1 ) " , "MS ( 1 , 2 ) : IFLOl OTHEN 500 
490 L- 0 : GOSU 8720 : PRINT" (CLR)" 

500 NEXTI :GOSUB 72 Q : GOTO 340 
510 GOSUB 76 Q : FORI»! TON : IFBS-MS ( 1 , 1 ) THEN 5 4 
0 

520 NEXTI 

530 PRINT" (CLR) { 2 GIU BS : PRINT" (GIU’ } 
NON E' NEL FILE”: GOSUB 7 2 0 : GOTO 340 
540 GOSUB 750 : GOSUB 720 : GOTO 340 
SSO PRINT" (CUlI DISCO O CASSETTA (D/C)" 

560 GETES :IF (ES< > "D" ANDE$< >’C" ) ORES -""THE 
N 560 

570 IFES»"D"THENF$*" 60 : INDIRIZZI" :F- 1 :GOT 
0590 

580 FS»"INDXRIZZI" :F- 0 iGS""* 

590 IFB- 5 THEN 640 
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600 IFF-1THBNG$* I ’,S,R" 

61 0 OPEN1 , 1 + 7 *F , 8 * F , FS +GS : GOSUB6 8 0 
620 INPUT#! ,N:FORI*lTON:FORJ*lT06 
630 INPUT#! , M$ ( I , J } i NEXT: NEXT: GOSUBtì BQ : GL 
OSEl : GOSUB680 r GOTO! 30 
640 IFF-lTHENG$- w ,S f W w 
650 OPENÌ ,1+7*F,1+7*F,F$+G$:GOSUB680 
660 PRINT#] ,N:FQRI»lTON:FORJ*lT06 
670 PRINT#! ,M$ (I, J) :NEXT:NEXT;GOSUB6BQ:CL 
OSEl : GOSUB6 80 : END 
680 IPF-OTHENRETURN 
690 iFO-OTHENOPBNl 5,8,1 5:0*1 
700 INPUT# 15,A,B$,C f D:IF ATKENPR I NTA , B $ , C , 
DtSTOP 
710 RETURN 

720 PRINT" { 2 GIU 1 } {RVSjUN TASTO PER CONT 
INUARE" 

730 GETAS: IFA$- ttM THEN730 
740 RETURN 

750 PRINT" (CLR) (GIU 1 } "MS (1,1)*, *M$(I,2)Q 
$M$(I,3)Q$MSCI,4)- " H$ (1,5) Q$H$ (1,6) : 
RETURN 

760 PRINT* {CLR} {GIU ') { 3 DES) QUALE RECORD 
"Q$"{ 3 DESI VUOI (COGNOME) ?" i INPUT" 

{ 2 GIU 1 }";B$ : RETURN 

770 IFN-OTHENPRINT" {CLR} (GIU* 3IL FILE E 1 
VUOTO 11 * I FORI*0TO3000 : NEXT: RETURN 
780 FORI *1 TON 
790 PRINT* {CLR} RECORD #*I 
800 F0RJ-1T06 

810 PR I NTQ$ * { RV5 } l, ;N$(J); ,, i ";M$(I,J) 

820 NEXTJ 

830 PRINT* { 2 GIU 1 }UN TASTO PER PROSEGUIR 
E " ! PR I NT " Q PER USCIRE DALL * OPZIONE" 
840 GETKEY h$ i IF A$- ,I Q"THENRETURN 
850 NEXT I 
860 RETURN 



Novità 
firmate 


MfCtet Bendimi} 

GIOCHI. TRUCCHI E CONTI 

Onesto libro 4 desi ma lo so prati ul- 
to ìi programmatori principianti: 
con i suoi 29 programmi presentati 
con una ricca documenta none e 
pronti per essere eseguiti. Gli argo- 
menti sono tanti a rispondono alle 
esigenze più disparate li BASIC è 
Quello dei calcolatori PET/CBM di 
cui vengono sfruttata a pieno le 
molte funzioni. 

Cri 553DP*g. 104 Un 24000 


fitte Bonetti 

Luciano Pazzucom - Fabio Racchi 
Giovanni Vaiano 

COMMODORE 64 
U GRAFICA E IL SUONO 


Ogni argomento viene spiegato e 
accompagnato da numerosi esem- 
pi commentati Nel libro sono lista- 
ti moltissimi programmi: essi sono 
registrali sulla cassetta allegata 
Inoltre la cassetta contiene anche 
altri programmi , ai Quali Si fa riferì' 
mento nel testo, ma senza listar ti. 
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Gaetano Marano 

77 PROGRAMMI 
PER SPECTRUM 

Oltre ai la qualità dei programmi 
contenuti m cuesio libre è sabota- 
re la varietà deaie applicano^ e 
degli argomenti per lacu reahzza- 
none. » è cercato d> ulihmre a; 


Mark Ramstoa» 

GIOCHI GIOCHI GIOCHI 
PER IL VOSTRO VID 20 


massimo li nuove nu#r«§ant< pre- 

stazioni dello SpeetNm guai * 

nuove istruzioni BAS^C a veicola 
il suono, e sopralt ut le il colore e la 
grafie*. 

C*d S66A P*g ISO Un 24X00 

Roberto Rigo 

SFECTRUM TOOL 


i giochi quanti hanno cominciato 
propr»o da su ' a interessarsi di Per* 

sonai Computer 1 

Questo ti Pro ne presenta c .e ? s c- 
dr ver ss di f f ico ita o ut p*t q \ t ? u co- 
me S' gioca è od' "Stato ces pro- 
gramma 

Coti. 566Q Ptg 1 14 Drr^COC 


Prognmml di qualità: grafìe* e 
gioco 

Questo fibre propone una sene di 
interessanti programmi BASIC che 
si servono di routine scritte m lin- 
guaggio macchina m m 
Ced M70 Pig 130 Lire 24.000 


Tim Mann 

SINFONIA 

PER UN COMPUTER: VIC 20 
Questo libro è un invilo a imparare 
divertendosi prima giocate ma 
poi date un occhiata ai listati dei 
programmi Imparerete alcune tee 


«che semplici ma raffinale per 
raggi ung e r e gl i eliti t ■ p iu s pel la co 
lari, e queste vi serviranno sena al- 
tro quando dai giochi vorrete pas- 
sare ad applicazioni sene 
Cod 5650 Pig. 130 —Lirico® 

Owen Bisftop 

IL LIBRO DEI GIOCHI 
DEL COMMODORE 64 

Ogni programma è corredale da 
istruzioni che ti insegnano l’uso de 
giochi li modo in cui essi funziona- 
no è esposto in dettaglio con alcu- 
ni accorgimenti sulle lattiche vin- 
centi Vengono dati pure alcuni 
consigli su come modificare l gio- 
chi in forma creativa per adatta' 
alle tue idee 

Cod. 3500 Pig. 150 Ufi ZUMO 

Ntget Fratone 

DATABASE 

l. u i ILE E IL DIlETTIVaU 
" !;W Studialo per chi vuol fare 
da sé con il calcolatore, parla c 
quella che e La maierta prima deli e* 
laboi azione. ■ dati e affronta il pro- 
blema delta loro memorizzazione 
della Loro organizzazione all inter- 
no del computer e delle opti azioni 
che si possono tare su di ess 



Francesco Lemw 

CONOSCI TE STESSO 
TRAMITE IL TUO PERSONAL 
COMPUTER 

n libro si co mpone di c mque capi lo 
ir. ognuno dei quali attinge ad una 
delle discipline che affrontano m 
qualche modo lo studio delia per- 
sonalità umana: Numerologia. 
Astrologia. Grafologia. Scienza dei 
Comportamento. Test di fniellrgem 
za. 

programmi sono stali scritti per 
Apple fi e sono disponibili su cas- 
setta e dist hello 

Cod. 412DPag. 128 Ure24.00G 

Miete Sentitovi 

GIOCHI TRUCCHI E CONTI 

Questo litro è sopr attui 

Tj * * ^ 3 dmmalon princip!C"4i i 

Suo 29 omn^amm». presentati con 
dnd ricca documentazione. sono 
pronti per essere eseguiti Gli argo- 
menti sono tarili e rispondono alle 
esigenze piu dispaiale il BASIC e 
quello dei calcolatori PET/CBM di 
Cu : .'erigono sfruttale a pieno le 
molti funzioni 

COd 5530 Pag- >54 Ufi 24000 

fi C*r?S 

BASIC ATARI 

Un cr ” : li&rp per chi non ha alcu- 
na esce' e-za di programmazione 
t di computa per chi sa tutto sui 
SAStC ma non sul Basic Alan e 
n*.ne per programmatori Alari 
cn* potranno usare H lesto come 
-a e ci n ferimento 
eoa. 4090 Pae. 192 lira 18.000 
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di T. Etyioldi 

trad, e a dati, 

di S. Albarelli, M, A» He oli 
e M. Crt.tmlb Grlui 



In qi««to fioco d'iiiont cl al po- 
trà Mtt«r« noi panni di un «■ 
cliooloflo in corco di tooori no- 
•coatf. Qnootlt però, vengono 
sorvegliati do oc conito e reo tu re 
e non è focile Impadronirtene. 
Forbiddeu Crypt è un emozio- 
nante gioco por VIC 20 + 8 Kby- 
to, CÌ4. C 16 o Piu./ 4 pr ovviati 
di Jovottck! 


O na leggenda del luogo In cui vi tro- 
vate parla di un grande e potente 
re che viveva, un tempo, nei paraggi. 
Dopo aver Investigato su questa perso- 
na si seppe che egli aveva nascosto nei 
sotterranei della sua antica dimora, il 
castello maledetto, un tesoro Inestima- 
bile, protetto da creature feroci. 
Questa sensazionale scoperta destò 
Tattenrlone di tutti gli archeologi del 
mondo, che però non ebbero mai 11 co- 
raggio di affrontare la difficile esplora- 
zione. 

Perché non cercare di accaparrarsi i te- 
sori custoditi nel castello maledetto e 
diventare l’archeologo più famoso del 
mondo? 

Sopprawivere nel sotterranei del castello 
maledetto non è però cosa de! tutto sem- 
plice. Ogni plano del sotterraneo è com- 
posto da quattro stanze, in ognuna delle 
quali è custodito un tesoro sorvegliato da 
creature feroci e accanite, come serpenti, 
scorpioni, scheletri e fantasmi. 

L'unico modo per procedere nella di- 
scesa al piano sottostante, nel quale so- 
no custoditi altri quattro inestimabili te- 
sori, è quello di prendere tutti I tesori 
presenti al plano In cui ci si trova, 
All'Inizio del gioco si possono vedere 
dall’alto le quattro stanze del piano In 
cui ci si trova e, nella parie bassa dello 
schermo, il punteggio aggiornato, il nu- 
mero di vite e il livello, 
fi giocatore è rappresentato, in questa 
schermata, dalla pallina, che è possibile 
muovere mediante il joystick (porta 2 

K sr il G64 e porta 1 per II C16 e 11 
us/4). 


Per entrare nel vivo dell'esplorazione è 
necessario far entrare la pallina in una 
porta di una delle quattro stanze. 
Come si entra nella stanza prescelta si 
è immediatamente inseguiti dalle crea- 
ture che difendono ferocemente II teso- 
ro (i nemici per ogni stanza sono quat- 
tro). 

Da esse d si può difendere sparando 
mediante il tasto 14 fi re" nella direzione 
in cui ci si muove. 

Nella versione per C64 1 proiettili dispo- 
nibili per ogni stanza sono solo tre; inve- 
ce in quelle per VIC 20, 06 e PIus/4 
si possiede una scorta infinita di proietti- 
li. 


Se le creature riescono a toccare il gio- 
catore, esso perde una delle sue vite. 
Uscendo da una stanza si ritorna a ve- 
dere le quattro stanze dall'alto; in quel- 
le in cui è già stato preso il tesoro d 
sarà un quadratino. 

Ricordiamo che per passare ai piani sot- 
tostanti del sotterraneo è necessario 
prendere tutti e quattro i tesori. 

Nella versione per CI 6, C64 e Plus/4 
al l'inizio della partita si hanno a disposi- 
zione cinque vite e se ne acquista una 
per ogni quattro piani dei sotterraneo 
superati. 

Invece nella versione per VIC 20 all'tni- 
zio della partita si possiedono dieci vite, 

5UPEACOMMODORE* 6/SS - 41 


ma non è possibile acquistarne altre. 

Nota alla varatone per VIC 20 

N ella ve raion e p er V 1 C 20 è ne cessa ri a 
come minimo l'espansione da 8 Kbyte 
($1 possono utilizzare anche le espansi 
ni da 16. 24 e 32 Kbyte), 

Questa versione è divisa in tre program- 
mi. 

\ì primo programma modifica il conte- 
nuto di alcuni puntatori della memoria, 
protegge una zona di essa per usi speci- 
fici e carica il secondo programma. 
Questo ridefinisce alcuni caratteri e ca- 


rica il terzo programma, che è II gioco 
vero e proprio. 

Note tilt versione per C16 m 
Plne/4 

Il C16 e il Plus/4 sono compatibili e 
utilizzano lo stesso programma. 

Una caratteristica molto utile che en* 
trambl possiedono è la possibilità di ri- 
definire ] tasti funzione. 

Chi non possedesse la versione su cas- 
setta fornita allegata alla rivista, e do- 
vesse battere il programma, può rispar- 


miarsi parecchia fatica programmando 
i tasti di funzione nel seguente modo: 

FI POKE 

F2., ...PRINT 

F3 GOSUB 

F4 DATA 

F5 THEN 

F6.....GOTO 

È consigliabile non programmare il ta- 
sto F7, perché contiene la funzione 
HELP, che è molto utile per correggere 
eventuali errori di battitura. 


Forbldden Crypt 

ve raion* p#r C64 

100 PRINT" {CLR] { 12 GIU 1 } { 12 DBS} ATTENDE 

RE. * * " : rem €7 

101 SN- 5 42 72 : FORI -SNTQSN+24 : POKEI , 0 : NEXT: 
AD-54277:SR=AD+1 : LF*SN : LH-SN+ 7 




: rem 

204 

102 

CR-SN+4 :VL=54296 

; rem 

1 36 

103 

POKEAD ,16: P0KESR, 240 

: rem 

171 

104 

POKEVL, 1 5 

: rem 

248 

no 

GQSUB8 2 0 : GOSUB 1 81 0 

: rem 

48 

115 

T$ « " { RVS } £ 40 SPAZI} {OFF) 

” : P-5 ; SC 

-0 : L 


V-l 

: rem 

183 

1 16 

POR I - 1 T04 ; RM 1 1 ) = 0 : NEXT 

: rem 

ì 02 

120 

SS-” [RVS } { 2 SPAZI} (OFF) f 

36 SPAZI) 


(RVS){ 2 SPAZI) (OFF)” 

: rem 

21 1 

125 

P0KE491 94,7 

: rem 

53 


1 30 DBFFHRX (X) - INT ( HMD l 1 ) * 87 } +X ; DEFFNRY { Y 
) «INTÈRNO (1 J *57} +Y : POKE 5 3280, 0 

;rem 247 

M0 POKE53281 , 0 : PL-7 52 4 : PX = 2G : PY-Ì 2 :OPL=l 
524 : POKEPL , 3 1 : POKEPL+54272 , 4 :EN-53269 

: rem 1 1 7 

1 50 POKEEN , 2 55 : POKE4 91 92,0: LV- 1 :SC-0:CS = 5 
3 2 7 B ; CD - 53279: GOSUB 3 3 0 : GOTO 1 1 5 

:rem 237 

1 60 FRI NT" {CLR}"; : PRINT : PRINTT$ ; S$ ; SS ; :GO 
SURI 80 : PRINTSS ; SS ; : GOSUB 1 80: PRINTSS ;S 
$;TS :rem 78 

170 P RI NT'* £ HOME ) ” : RETO RN : rem 150 

180 PRINT" [RVS}{ 2 SPAZI} [OFF} { 2 SPAZI) 
£<A>]£ 13 *M<S>){ 2 spaziHca>j 
{ 13 *}[<S>]{ 2 SPAZI] {RVS} 

£ 2 SPAZI) (OFF}" ? : rem 41 

190 PRINT" {RVS}{ 2 SPAZI) {OFF} £ 2 SPAZI} 
-{ 13 SPAZI }-{ 2 SPAZI )-{ 13 SPAZI }- 
T 2 SPAZI ) {RVS} { 2 SPAZI) {OFF}"; 

:rem 98 

200 PRINT" {RVS }{ 2 SPAZI) {OFF) { 2 SPAZI) 

- £ 13 SPAZI } - { 2 SPAZI)- { 13 SPAZI } z 
T 2 SPAZI }{ RVS }{ 2 SPAZI) £OFF}"f ~ 

: rem 90 

210 PRINT 11 { RVS) { 2 SPAZI HOFFH 2 SPAZI) 
X{ 13 SPAZI J I ( 2 SPAZI)! £ 13 SPAZI)I 
( 2 SPAZ I ) {RVS ) { 2 SFAZ I ) {OFF ) " ; 

:rem 11 

220 PRINT" {RVS} £ 2 SPAZI) {OFF) { 2 SPAZI) 

- { 13 SPAZI M 2 SPAZI }- { 13 SPAZI }- 
T 2 SPAZI] {RVS} £ 2 SPAZI] {OFF}"; 

:rem 92 

230 PRINT” { RVS ) { 2 SPAZI) {OFF} { 2 SPAZI) 
-{ 13 SPAZI } - { 2 SPAZ I } - { 13 SPAZI ) - 
I 2 SPAZI) {RVS} { 2 SPAZI) {OFF)”; 

:rem 93 


240 PRINT" {RVS) { 2 SPAZI }£OFF}{ 2 SPAZI) 
[<Z>]{ 13 * > [ < X > I C 2 SPAZ I ) [ < Z > ] 

[ 13 *}[<X>]£ 2 SPAZ I } { RVS } 

£ 2 SPAZI) {OFF}"; : rem 62 

250 RETURN :rem 119 

260 PRINT” £CLR] "; : PRINT : PRINTTS ; : rem 120 
2 70 FORI -1TO20: PRINTSS; : NEXT : PRI NTT$ : PRI N 
T" { HOME ) " ; PRINT" { 9 G I U r } 11 ; ;rem 106 

280 D$«" [<L>) £<J>] { 39 SPAZI ) (<L>] 1<J>] 

PRINTD$;D$;D$;D$: RETURN : rem 139 

290 PRINT" {HOME) { 23 GIU 1 }{YEL} 

{ 2 SPAZI ] PUNTI" SOM 3 SPAZI} LI V. "LV 
”{ 3 SPAZI} VITE " P" I < 7 >] " : :rem 173 

291 PRINT" {NOME}" : RETURN :rem 154 

330 IFTC 04 THEN 34 G trem 4 B 

335 TC - 0 t FORI -ÌT 04 :RM{I) = 0 : NEXT : LV-LV +1 :G 



OSUB88Q 

: rem 

24 

336 

IFLV 4- INT t LV/4) THBNP-P+1 t 

V-7-INTILV/ 


4 : 1 F V> * 0THENPOKE4 9 1 94 , V 

: rem 

61 

340 

P0KE4 91 92,0: POKE 53269,0 : GOSUB 1 60: 

GOSU 


B290: IFP-0THEN61 0 

: rem 

235 

341 

I FRM ( 1 ) -1THENPOKE1 315,1 60 

; rem 

161 

342 

I FRM ( 2 ) -iTHENPOKEl 332,1 60 

;rem 

162 

343 

JFRM ( 3 ) -1THENPOKE1 675, ) 60 

: rem 

174 

344 

IFRM ( 4 ) -1THENPOKE1 6 92,1 60 

: rem 

175 

3 50 

POKEPL, 81 : POKEPL+54272, 4 

: rem 

140 

360 

M-PEEK (56320) :M= (MANDI 5) 

: rem 

52 

370 

IFM-1 5THEN3 60 

i r em 

225 

380 

DX- { (M>8) AND IM< 1 2 J ) - £M<8) 

: rem 

40 


390 DY- { <M-6)OR<M«10)OR(K»1 *] ) - ( (M-5)QR(M 
-9) OR (M-ì 3) ) s rem 185 

400 PX-PX+DX : PY-PY+DY :rem 121 

410 PL- (PY*40}+1 024+PX; IFPEEK(PL) 0 32THEN 
430 ; r em 5 9 

420 POKEOPL, 32 :POKEQPL+54272,G: POKEPL, SI : 
POKEPL+54 272 , 4 : 0PL=PL : GOTO 360 




: rem 

88 

430 

IFFEEK £ PL) <> 9THENGOTO590 

: rem 

241 

440 

IFPY-7THENRMn 

: rem 

128 

450 

IFPY-1 6THENRM-3 

; rem 

179 

460 

IFPX>1 9THENRM=RM+1 

: rem 

127 

470 

IFRM-1 THENCL-6 

: rem 

104 

4 80 

IFRM-2THENCL-7 

: rem 

107 

490 

IFRM-3THENCL-5 

: rem 

107 

500 

IFRM- 4 THE NCL- 2 

i rem 

97 

51 0 

POKE 5 3 2 92 ,CL 

:rem 

133 

520 

IFRM ( RM) - 1 THENPX = PX-DX : FY-PY 

-DY : PL« ( P 


Y* 40 ) +1 024+PX : OPL-PL : G0T042 0 

: rem 

762 

530 

F0RI-1T04 :PDKE2040+I ,230+RMì 

POKE53 2 87 


+ 1 , CL+ 1 : NEXT: POKE20 45 , 2 35+RM 

: GOSUB650 



: rem 

202 

540 

X-PEEK (53248) : Y^PEEK (53249) 

: rem 

247 

550 

IFX< - 4 6THENPX- - 3* ( (RM=1 ) OR(RM-3> ) 

-20* 


£ ( RM- 2 ) OR ( RM - 4 ) ) 

: rem 

29 


42 SUPtllCOM HODORE* */» 



560 IFX>46THENPX--1 9* ( (RM-1 ) 0R{RM*3) ) -36* 
( (RM=2) OR [ RM= i ) ) : rem 33 

570 PY=-7+ { (RM-1 )OR(RM*2) ) -1 6* ( (RM»3)0R(R 
M = 4) ) :PL«(PY*40)+1Q24+FX:OPL*PL 

treni 142 

580 GOTO330 treni 106 

590 PX=PX-DX:PY=PY-DY irei» 135 

600 GOTO360 tieni 104 

610 PRINT" {HOME} [ 7 GIU'H 16 DES) (RVS} 

(YEL)GAME OVERtOFF}" : rem 90 

611 PRINT" (GIU' } { 7 DES) l RVS) PREMI UH TAS 
TO PER GIOCARE [<7>J (OFF) " : POKEl 99,0 

«rem 118 

612 WAIT1 98 , 1 : rem 205 

613 PRIHT" tCLR)":RETURH treni 24 

650 POKEOPL, 32:?OKEOPL+54272,0:POKEPL,81 I 

POKEPL + 5 4 2 7 2,4 : GOSU B 2 60 : GOSUB290 

: rem 250 

660 IFPX a l QORPX a 3 5THEH6 80 : rem 52 

670 X=4 5: Y*0 45 : POKE53264 , PEEK ( 53 2 64 ) ANO 2 5 

4 : POKE491 89 , 0 : GOTO690 t refe 1 08 

680 X=4S:Y*1 45: POKE53264 , PEEK (53264) ORI :P 
OKE491 89, 1 irete 192 

690 POKE53246 ,X:POKE53249,Y :POKE53264 , PEE 
K ( 53264) AND1 : POKE53269 , 0 treie 50 

700 PL-53250:POKEPL,FNRX (58) tPOKEPL* 1 , FKR 
Y { 6 7 ) : POKEPL+ 2 , FNRX i 1 69 ) treie 227 

710 POKEPL+ 3 , FNRY { 67 ) : POKEPI.+4 , FMRX 58 :? 

OKEPL+5 , FNRY (146) ire- 30 

720 POKEPL+6, FNRX 0 67) iPOKEPL-7, FS'RY . ’ 46 

: re* 220 

730 POKEPL+B, INT(RND [1 ) *222 ] -3 3 : P3KEPL- 5 , 


INT(RND(1 ) *1 39) +66 t POKEEN, 255 




: rem 

64 

740 

GOSU B9 00 : PO KE 49178(0 

: r em 

134 

7 50 

SYS491 52:A=PEEK(491 78) 

: rem 

219 

760 

IFA-1THENPOKE491 70 , 0 : POKB4 9 1 90 , 0: 

RETO 


RN 

: rem 

1 36 

770 

IFA02THEN800 

: rem 

225 

70 0 

POKE491 7 B , 0 ; PO KE 4 9 1 9 0 , 0 : P= 

P~1 : IFRM (RM 


) =1THENRM(RM] =0 : SC-SC- 300 : 

TC = TC - 1 




; rem 

207 

785 

FORI=2QTOOSTEP-1 :FOKELH,X: 

POKECR, 

1 7:F 


ORW-1TQ20 : NEXT: POKECR, 1 6 : NEXT 




: rem 

82 

790 

FGKECR , 0 ; POKE5 326 1 , Q:RETURN :rem 

160 

800 

IFAO3THEN8I0 

: rem 

221 

801 

SOSC+ 300 : GOSUB290 ; TC a TC + l 

: PGKE491 78 , 


Q:RM(RM) =1 ;POKE53261 , 0 

: rem 

229 

802 

FORI * OTOl 0 0STÉP1 0 : POKELH , I 

; POKECR 

,17; 


FOEW- ì TO 2 0 : NEXT : PO KECR ,16: 

NEXT 




: rem 

1 22 

803 

POKECR , 0 : GOTO? 50 

: rem 

202 

810 

POKE491 78,0: POKE4 9 1 90 , 0 : SC 

= SC + 1 0: 

GOSU 


B2 90 : GQTO750 

: rem 

144 

820 

POKE2 040 , 2 30 ; POKE204 1 , 231 : 

PQKE2Q42 , 23 


2 : POKE2 04 3 ,233: PGKE2 04 4 ,234 : rem 

36 

830 

POKE2 0 4 5,236: PO KE 2 046,235 

: rem 

B7 

840 

CH^O: FORICI 4720T01 53 59 : READ A: POKEl , A: 


CH»CH+A:NEXT 

: rem 

11 

345 

I FCH< > 4 5 6 5 7 THENFRI NT H ERRORE NEI DATI 


SPRITE1 ! 1 11 : END 

: rem 

82 

850 

RETURN 

:rem 

125 

880 

POKEEN, 0 : PRINT" {CLR] { 5 DES) 

{ 5 GIlTjHAI MIGLIORATO LIVELLO: 

"jLV 


il ! n 

:rem 

1 58 

890 

FORW-1 TOl 000: NEXT: RETURN 

: rem 

68 

900 

A=PEEK (491 09) :ONA+l GOT091 0 

,920 



: rem 

170 

9 ì 0 

A- 1 4 2 4 : GOTO930 

: rem 

242 

920 

A= 1 462 

: rem 

230 


930 FORI = ATOA+ 1 20STEP4 0 ; POKEl , 1 60:POKEI + 1 



,160: 

NEXTI : RETURN 

: rem 

174 

960 

DATA 

0,60,0,0,1 26,0,0,219 

: rem 

120 

970 

DATA 

0,0,255,0,0,255,0,0 

; rem 

70 

900 

DATA 

126,0,0,60,0,1,255,128 

: rem 

230 

990 

DATA 

3,255, 192,3,1 26,192,3, 

126 






: rem 

143 

1000 

DATA 

192,3,126, 192,3, 126,192,3 





; rem 

174 

1010 

DATA 

1 26, 1 92 , 0, 1 02,0,0, 1 02, 

0 





: rem 

43 

1020 

DATA 

0,102,0,0,102,0,0,102 

: rem 

1 06 

1030 

DATA 

0,0,102,0,0,231,0,0 

: rem 

91 

1050 

DATA 

0,0,0, 0,0, 0,0, 0 

: rem 

148 

1060 

DATA 

112,0,0,216,0,1,240,0 

: rem 

201 

1070 

DATA 

7 ,192,0,1 ,192,0,0,224 

: rem 

216 

1080 

DATA 

0,0, 56,0,0,20,0, 0 

: rem 

12 

1090 

DATA 

1 4,0,240,14,131 ,252,14 

,199 





: rem 

222 

1 100 

DATA 

255, 1 4 ,207,1 5,1 58,254, 

7,252 





; rem 

25 

ino 

DATA 

124,3,248,56,0,224,0,0 

: rem 

12 

1120 

DATA 

0,0, 0,0,0, 0,0, 0 

: rem 

146 

1 140 

DATA 

0,0,0,12,0,48,30,0 

;rem 

54 

1150 

DATA 

1 20,10,24,72,51 ,60,204 

,97 





: rem 

178 

1 ì 60 

DATA 

60,134,13,153,176,30,255,120 




: rem 

65 

1 1 70 

DATA 

5^ ,7 27,204,45,255, 1 BO, 

1 10,255 




: rem 

121 

nso 

TATA 

■ ^S/2 1 9,255,2i 9,53,255 

/ 1 72 , 

110 




: rem 

182 

1190 

DATA 

255,11 8,21 9,255,219,43 

,60,12 




: rem 

88 

1200 

DATA 

32,24,4,96,0,6,64,0 

: rem 

127 

1210 

DATA 

2,64,0,2,0,0,0,0 

: rem 

200 

1230 

DATA 

0,24,0,0,60,0,0,126 

: rem 

105 

1240 

DATA 

0,0,1 95,0,0,195,0,0 

: rem 

115 

1250 

DATA 

102,0,0,60,0,0,255,0 

: rem 

155 

1260 

DATA 

1 ,255,1 28,3,7 89,192,3, 

1 B9 





: rem 

1 97 

1270 

DATA 

192,7,126,224,7,126,224,9 





: rem 

109 

1 280 

DATA 

126, 1 44, 16,255,8,9, 1 26 

, 1 44 





: rem 

241 

1290 

DATA 

6,255,96,0,255,0,1,255 

: rem 

36 

1 300 

DATA 

1 28,3, 255,1 92,0,0,0,0 

: rem 

216 

1 320 

DATA 

2,0, 64, 1 4,66,11 2,63,90 

: rem 

23 

1 330 

DATA252 ,127,255,254,255,129 

, 255, 

255 




: rem 

239 

1340 

DATA 

165,255,221,129,187,136,195 

,17 




: r em 

192 

1 350 

DATA 

0, 1 95,0,0,1 02,0,0,1 26 

: rem 

210 

1 360 

DATA 

0,0,60,0,0,60,0,0 

: rem 

4 

1 370 

DATA 

60,0,0,60,0,16,56,0 

ì rem 

119 

1380 

DATA 

48,248,0,255,224,0,127 

,128 





f rem 

237 

1390 

DATA 

0,48,0,0,16,0,0,16 

: rem 

69 

1410 

DATA 

0,0, 0,0, 0,0, 0,0 

: rem 

148 

1420 

DATA 

0,0/0, 0,0, 0,0,0 

: rem 

149 

1 4 30 

DATA 

0,0,0,126,0,1 ,153,120 

: rem 

212 

1 440 

DATA 

2 ,60,64,6,255, 96,6,255 

: rem 

44 

1 450 

DATA 

96,2,60/64,1 ,153,128,0 

: rem 

30 

1460 

DATA 

126,0,0,0,0,0,0,0 

:rem 

2 

14 70 

DATA 

0,0,0, 0/0/0, 0,0 

: rem 

154 

1480 

DATA 

0,0,0,0,0,0,0,255 

: rem 

7 

1490 

DATA 

0,0,0, 0,0, 0,0,0 

: rem 

156 

1500 

DATA 

0,0, 0,0, 0,0, 0,0 

:rem 

7 4 8 

1 51 0 

DATA 

0,0, 0,0,0, 0,0,0 

: rem 

149 

1 520 

DATA 

0,0,0,63,255/252,96,0 

: rem 

227 

1 530 

DATA 

6,1 92,0, 3,255,255,255 , 

1 92 





: rem 

1 88 


s.ifRCCx'iODORr* , 43 




1 540 DATA 20,3,1 92,28,3,192,0,3 : rem 229 
1550 DATA 192,0,3*255,255,255,0,0 

: r em 76 

1560 data 0,0,0, 0,0, 0,0, 2S5 srem 6 

1 570 DATA 0,0, 0,0, 0,0, 0,0 : rem 155 

1580 DATA 0, 0, 0, 0, 0, 0 ,0 , 0 i rem 156 

1 590 DATA 0,0,0,0,0,97,255,134 : rem 177 

1600 DATA 146,0,73,147,129,201,137,255 

srem 76 

1610 DATA 145*135,255,225,128,255,1,65 

srem 81 

1620 DATA 255,130,34,126,68,28,60,56 

stero 240 

1630 DATA 0,255,0,3,255,192,31,255 

ì rem 127 

1640 DATA 24 8,0,0,0,0,0,0,255 : rem 115 

1650 DATA 1 ,2S5, 128, 3, 255, 192, 7, 129 

: rem 1 92 

1660 DATA 224,12,195,48,24,102,24,56 

srem 235 

1670 DATA 60,28,60,126,60,54,195,108 

srem 242 

1680 DATA 51,153,204,49,189,140,49,189 

;rem 101 

1690 DATA 1 40, 51 , 1 53 , 204 , 54 , 1 95 , 1 08 , 60 

:rem 79 

1700 DATA 126,60,56,60,28,24,102,24 

: r em 175 

1710 DATA 12,195,48,7,129,224,3,255 

; r em 191 

1720 DATA 192,1,255,128,0,0,0,0 :rem 220 

1730 DATA 0,0, 0,0, 0,0, 0,0 srem 153 

1740 DATA 0,0,0,0,0,126,0,0 srem 3 

1750 DATA 195,0,0,195,0,0,126,0 srem 226 

1760 DATA 0,60,0,0,60,0,0,60 srem 62 

1770 DATA 0,0,126,0,0,255,0,0 srem 114 

1780 DATA 255,0,1,255,128,1,255,128 

;rem 186 

1790 DATA 3,255,192,3,255,192,3,255 

srem 196 


1 800 

DATA 

192, 1, 255, 12B, 0,255,0, 

0 


2470 

DATA 

208,173,38,192,208,90 

srem 

2 




srem 

71 

2480 

DATA 

173,43,192,208,85,173 

srem 

4 

1 810 

CH-0: 

I - 491 52 s I EPEEK ( I ) «76THENRETURN 

2490 

DATA 

0,220,41 ,16,208,78 

srem 

94 




srem 

200 

2500 

DATA 

173,40,192,201 ,3,176 

srem 

188 

1820 

HEADA:CH-CH+A:IFA-256THEN1 840 


251 0 

DATA 

71,169,50,141,43,192 

srem 

196 




: rem 

1 

2520 

DATA 

169,1 ,141 ,38,192,238 

srem 

202 

1830 

POKEI 

, A S 1*1 + 1 ; GOT0 1 820 

srem 

84 

2530 

DATA 

40,1 92,169,10,141 ,1 

s rem 

136 

1840 

IFCH0 1 4 1 2 79TH35NPRIMT 1 *ERR0RI NEI 

DAT 

2540 

DATA 

212,169,17,141 ,4,212 

srem 

1 89 


I DEL Irti"? END 

: rem 

10 

2550 

DATA 

162,2,32,1 5,1 94, 169 

srem 

150 

1850 

RETURN 

s rem 

174 

2560 

DATA 

16,141,4,212,160,12 

; rem 

131 

1860 

DATA 

76,24,194,1,2,4 

: rem 

205 

2570 

DATA 

173,0,208,153,0,208 

: rem 

140 

1870 

DATA 

6,16,32,64,128,254 

s rem 

106 

2580 

DATA 

1 73,1,208,1 53,1 ,208 

s rem 

143 

1 880 

DATA 

253,251 ,247,239,223,191 


2590 

DATA 

1 73,16,208,41 ,1,240 

: rem 

1 42 




s rem 

102 

2600 

DATA 

9,173,16,208,9,64 

: rem 

54 

1890 

DATA 

1 27,0,0,0,0,0 

s rem 

82 

2610 

DATA 

141,16,208,96,173,16 

: rem 

199 

1900 

DATA 

0 , 0 , 0 , 0 , 0, 0 

: rem 

224 

2620 

DATA 

208,41 ,1 91 ,141 ,1 6,208 

srem 

241 

1910 

DATA 

0,0,0, 0,0,0 

srem 

225 

2630 

data 

96,168,41,1,208,8 

srem 

55 

1920 

DATA 

0 , 0 , 0 , 0 , 0 , 0 

s rem 

226 

2640 

DATA 

169,255,141 ,25,192,76 

srem 

4 

1930 

DATA 

0,0,173,20,192,10 

srem 

29 

2650 

DATA 

230,193,152,41 ,2,208 

trem 

190 

1940 

DATA 

168,141 ,19,192,185,0 

srem 

205 

2660 

DATA 

5,169,1,141 ,25,192 

srem 

99 

1950 

DATA 

208,141,21,192,172,20 

srem 

240 

2670 

DATA 

152,41 ,4,208,8,169 

srem 

104 

1960 

DATA 

192,1 85,3,192,45,16 

: rem 

159 

2680 

DATA 

255,141,24,192,76,253 

srem 

1 


rem 

rem 

rem 

rem 


: rem 
: rem 
: rem 
s rem 
: rem 


rem 

rem 

rem 


rem 

rem 

rem 


1970 DATA 208,1 41 ,22,1 92,1 72,19 srem 
1980 DATA 1 92,185,1,208,1 41 ,23 ! rem 

1990 DATA 192,173,21,192,24,109 stero 
2000 DATA 24,192,141,21,192,201 
2010 DATA 255,240,19,201,0,240 
2020 DATA 3,76,129,192,172,20 
2030 DATA 192,185,3,192,141,22 
2040 DATA 192,76,129,192,173,24 
2050 DATA 192,16,12,173,21,192 
2060 DATA 201,255,208,5,169,0 
2070 DATA 141,22,192,173,23,192 
2080 DATA 24,109,25,192,141,23 
2090 DATA 792,172,20,192,173,22 
2100 DATA 192,240,12,185,3,192 
2110 DATA 13,16,208,141,16,208 
2120 DATA 76,168,192,185,11,192 
2130 DATA 45,16,208,141,16,208 
2140 DATA 172,19,192,173,21,192 
2150 DATA 153,0,208,173,23,192 
2160 DATA 201,66,144,9,201,205 
2170 DATA 240,2,176,3,153,1 
2180 DATA 208,169,0,141,24,192 
2190 DATA 141,25,192,96,173,0 
2200 DATA 220,41,15,201,15,208 
2210 DATA 3,76,111,193,32,207 
2220 DATA 193,32,44,192,173,1 
2230 DATA 208,201,66,208,9,24 
2240 DATA 105,1,141,1,208,76 
2250 DATA 246,192,201,205,208,6 
2260 DATA 56,233,1,141,1,208 
2270 DATA 173,16,208,47,1,208 
2280 DATA 42,173,0,208,201,39 
2290 DATA 208,74,173,1,208,201 
2300 DATA 130,144,22,201,161,176 
2310 DATA 18,173,16,208,41,1 
2320 DATA 205,37,192,240,8,169 
2330 DATA 1,141,26,792,76,111 
2340 DATA 193,238,0,208,76,78 
2350 DATA 193,173,0,208,201,49 
2360 DATA 208,32,173,1,208,201 
2370 DATA 1 30 , 1 44 , 22 , 20 1 , 1 61 , 1 76 ; rem 
2380 DATA 18,173,16,208,41,1 srem 
2390 DATA 205,37,1 92,240,8,769 ; rem 

2400 DATA 1,141,26,192,76,111 
2410 DATA 193,206,0,208,162,5 
2420 DATA 32,54,195,173,32,192 
2430 DATA 240,23,169,3,141,26 
2440 DATA 192,160,5,185,11,192 
2450 DATA 45,21,208,141,21,208 
2460 DATA 160,10,169,0,153,0 


srem 
; rem 
srem 
: rem 
:rem 


srem 
:rem 
srem 
:rera 
srem 
srem 
: rem 
srem 
srem 


: rem 
srem 
ì rem 
srem 
: rem 
s rem 
srem 


251 

200 

255 

226 

174 

142 

190 

254 
189 

140 
241 
7 90 
24 4 
7 87 
182 

255 
189 
247 
189 
186 

35 

195 
149 
172 
137 

142 

143 
83 

241 

85 

141 
140 

193 
21 
87 

200 

137 
159 

194 
185 

28 

94 

207 

135 

138 
199 

139 

196 
166 

83 


44 ^PERCOMMODOM® 6/6S 



2690 

DATA 

193,152,41 ,8,208,5 

: rem 

104 

1400 

DATA 

11,205,10,192,176,6 

: rem 

137 

2700 

DATA 

169,1,141,24,192,173 

: rem 

195 

3410 

DATA 

169,1,141 ,32,192,96 

: rem 

149 

2710 

DATA 

36,192,203,12,173,24 

: rem 

197 

1420 

DATA 

169,0,141,32,192,96 

; rem 

149 

2720 

DATA 

192,141 ,39,192,173,25 

: r em 

251 

1430 

DATA 

173,28,192,24,105,15 

: rem 

195 

2730 

DATA 

192,141 ,41,192,96,160 

i rem 

251 

3440 

DATA 

144,242,205,30,192,144 

; rem 

31 

2740 

DATA 

255,136,208,253,202,208 


3450 

DATA 

237,169,1,141 ,32,192 

: rem 

198 




rem 

91 

3460 

DATA 

96,173,28,192,56,233 

: rem 

214 

2750 

DATA 

248,96,169,0,1*1 ,20 

rem 

153 

3470 

DATA 

1 5,176,2,169,0,205 

; rem 

97 

2760 

DATA 

192,32,202,192,44,43 

rem 

197 

3430 

DATA 

30,192,176,216,173,28 

; rem 

0 

2770 

DATA 

192,240,3,206,43,192 

rem 

198 

3490 

DATA 

1 92,24,105,15,144,2 

: re** 

1 «3 

2780 

DATA 

173,26,192,208,88,173 

rem 

11 

3500 

DATA 

169,255,205,30, '*2, 1 «4 

; rem 

41 

2790 

DATA 

38,192,240,21 ,32,13 

rem 

1 45 

351 0 

DATA 

201 Ul,32,1«2 

: rem 

186 

2600 

DATA 

196,173,38,192,240,13 

rem 

252 

3520 


lo, 138, 24^,37 , f 73,34 

; rem 

199 

2810 

DATA 

173,26,192,208,70,32 

ìrem 

198 

ZZ jO 

DATA 

’92, 4 1 ,24,192,173,35 

: rem 

248 

2820 

DATA 

13,196,173,26,192,208 


x:>5 

^540 

DATA 

1 92, 1 41 ,25,192,12,44 

ì rem 

196 

2830 

DATA 

62,1 74, 42,192, 3?, ! 5 i rem 

1 43 

3550 

DATA 

192,173,34,192,141 ,24 

: rem 

249 

2640 

DATA 

194,16?.:,; /3, 27, 192 

rem 

201 

3560 

DATA 

192,173,35,1*2,141 ,25 

: rem 

252 

2850 

DAT* 

105,1 ,201 ,5,208 

rem 

84 

3570 

DATA 

1 92,32, 44, 1 92,96,169 

: rem 

21 7 

T T 6 u 

DATA 

2,169,1,141,27,192 

rem 

100 

1580 

DATA 

2, 1 , 26, 192, 96, 1 60 

:rem 

152 

2870 

DATA 

141 ,20,192,168,185,3 

rem 

201 

1590 

DATA 

12,1 85,1 , 2 0 3 , 2 0 1 ,66 

;rtm 

146 

2880 

DATA 

192,45,16,208,208,16 

rem 

207 

3600 

DATA 

240.106.20i .20S.240.102 


2890 

DATA 

152,10,168,185,0,208 

rem 

201 




: rem 

61 

2900 

DATA 

208,8,232,224,4,240 

rem 

140 

3610 

DATA 

173,16,208,41,1,208 

: rem 

140 

2910 

DATA 

161,76,79,194,32,139 

rem 

21$ 

3620 

DATA 

7,185,0, 208,201 , 39 

: rem 

95 

2920 

DATA 

194,173,26,192,208,3 

rem 

205 

3630 

DATA 

240,88,185,0,208,201 

: rem 

195 

2930 

DATA 

76,24,194,169,0,141 

rem 

155 

3640 

DATA 

49,240,91 ,1 73,39,1 92 

: rem 

210 

2940 

DATA 

38,192,96,173,27,192 

rem 

219 

3650 

DATA 

1 41 ,24,1 92,1 73,41,1 92 

; rem 

243 

2950 

DATA 

10,168,185,0,208,141 

rem 

>96 

3660 

DATA 

1 41 ,25,1 92,169,6,141 

: rem 

202 

2960 

DATA 

21, 192, 185,1, 208, 14 1 

rem 

197 

3670 

DATA 

20,192,32,44,192,160 

: rem 

196 

2970 

DATA 

23,192,173,23,192,205 

rem 

252 

3680 

DATA 

12,185,1 ,208,201 ,66 

; rem 

146 

2980 

DATA 

1,208,208,8,169,0 

rem 

54 

3690 

DATA 

240,52,201,205,240,49 

; rem 

241 

2990 

DATA 

1*1 ,23,192,76,1 87,194 

rem 

12 

3700 

DATA 

1 73,16,208,41 ,64,208 

: rem 

197 

3000 

DATA 

144,8,169,255,141 ,25 

rem 

195 

3710 

DATA 

10,185,0,208,201,39 

: rem 

117 

3010 

DATA 

192,76,187,194,169,1 

rem 

210 

3720 

DATA 

240,34,76,104,196,185 

: rem 

255 

3020 

DATA 

141 ,25,192,172,27,192 

rem 

241 

3730 

DATA 

0,208,201 ,49,240,24 

: rem 

117 

30 30 

DATA 

185,3,192,45,16,208 

rem 

147 

3740 

DATA 

162,1,32,54,195,173 

: rem 

ISO 

3040 

DATA 

208,8,169,0,141 ,22 

rem 

89 

3750 

DATA 

12,1 92,208,22,232,224 

: rem 

241 

3050 

DATA 

192,76,21 1,194,169,1 

rem 

202 

3760 

DATA 

5,208,243,76,122,196 

: rem 

208 

3060 

DATA 

141 ,22, 192, 173, 16, 20B 

rem 

241 

3770 

DATA 

169,0,141,26,192,96 

; rem 

160 

3070 

DATA 

41,1 ,205,22,192,240 

rem 

111 

3780 

DATA 

169,0,141 ,26,192,76 

: rem 

159 

3080 

DATA 

5,176,18,76,236,194 

rem 

1 61 

3790 

DATA 

171,196,138,24,105,3 

: rem 

205 

3090 

DATA 

173,21,192,205,0,208 

rem 

189 

3800 

DATA 

141,26,192,138,168,185 

: rem 

52 

3100 

DATA 

240,12,144,5,169,255 

rem 

1 89 

3810 

DATA 

11,192,45,21 ,208,141 

: rem 

188 

3110 

DATA 

76,248,194,169,1,76 

rem 

162 

3820 

DATA 

21 ,208,1 85,1 1 ,192,45 

: rem 

197 

3120 

DATA 

248,194,169,0,141,24 

rem 

196 

3830 

DATA 

16,208,141,16,208,152 

: rem 

244 

3130 

DATA 

192,173,24,192,73,255 

rem 

252 

3840 

DATA 

10,168,169,0,153,0 

: rem 

94 

3140 

DATA 

24,105,1 ,141 ,34,192 

rem 

112 

3850 

DATA 

208,169,0,141 ,38,192 

: rem 

205 

3150 

DATA 

173,25,192,73,255,24 

rem 

201 

3860 

DATA 

160,12,153,1 ,208,96,256 


3160 

DATA 

105,1,141,35,192,32 

rem 

114 




: rem 

93 


3170 DATA 44,192,32,33,1 95,173 
3160 DATA 32,192,208,1,96,32 
3190 DATA 229,195,96,162,0,236 
3200 DATA 20,192,240,6,32,54 
3210 DATA 195,173,32,192,206,5 
3220 DATA 232,224,6,208,238,96 
3230 DATA 173,20,192,10,168,185 
3240 DATA 0,206,141,28,192,185 
3250 DATA 1,208,141,29,192,138 
3260 DATA 10,168,135,0,208,141 
3270 DATA 30,192,185,1,206,141 
3280 DATA 31,192,173,29,192,56 
3290 DATA 233,19,205,31,192,176 
3300 DATA 11,173,29,192,24,105 
3310 DATA 19,205,31,192,176,6 
3320 DATA >69,0,141,32,192,96 
3330 DATA 172,20,192,185,3,192 
3340 DATA 45,16,208,240,2,169 
3350 DATA 1,141,33,192,138,168 
3360 DATA 165,3,192,45,16,206 
3370 DATA 240,2,169,1,205,33 
3380 DATA 192,240,46,176,25,173 
3390 DATA 28,192,56,233,15,176 


rem 
rem 
rem 
rem 
rem 
rem 
i rem 
: rem 
: r em 
: rem 
: rem 
; rem 
: rem 
Stero 
:rem 
; rem 
: rem 
3 rem 
; rem 
: rem 
: rem 
srem 
: rem 


202 

96 

210 

85 

196 

200 

245 

195 

196 

191 

192 
208 
251 
168 
146 
148 

196 
146 

197 
153 

89 

0 

210 


r 


vn) 

t 



f ■ •. 

f 


vV 


SUFERCOMMODORE* 6 M 45 



Forbtdden Crypt 

v*r*loB« per CI 6 

20 POKE55 , 0 ; POKE56 , 60 ;CLR; COLORO , \ ,0;COLO 
R4, 1,0 SCOLORI, 7, 4 
30 DIMMN(4,6) ,DR(8) ,RM(4) 

40 FORI -1T04: POR J=-1TQ6:READMN(I , Jì iNEXTJ: 

NSXT1 : FORI"! TG8 ; READDR ( 1 > :NEXT 
50 FORI-1 T04 : RM ( I) =1 :NEXT 

€0 DATA0, 77 , 78,40 , 79 ,72, 0,82,83,1 ,84,69,0 
,85,86,1,87,34,0,88,89,40,90,52 
70 DATA- 40, ~3 9,1 ,41,40,39,-1,-41 
80 DEFFNY (X) -INTCX/40) : DEFFNX (X) “X- ( FNY (X 
) *40) 

90 PR"30 

100 GOSUB] 2 B0 : GOSUB 1 380 
110 VOL5 

120 T$- H {RVSH 40 SPAZI HOFP)" 

130 SS-" (RVSlt 2 SPAZI } {OFF} f 36 SPAZI} 
{RVSH 2 SPAZI} £OFF}”:P*5 
140 DEFFMA (XJ £ INT(RND (1 ) *X) +1 
150 DEFFNRX(X) =INT(RND [1 ) *1 00) +X:DEFFNRY( 
Y) *INT ( RND (1 ) +58 } +Y 
160 PL-3572 : PX = 20 : PY= 1 2 : OPL-PL 
170 LV"1 tSC^OiGOSUBSSOiEND 
1 80 PRINT" {CLR}" ; : PRINT : PRINTT$ ; SS ? S$ ; ìGO 
SUB200 : PRI NTSS ; SS ; : GOSUB200 : PRINTS$ ; S 
$?T$ 

190 FRI NT" {HOME} 11 : RETURN 

200 PRINT" { RVS } { 2 SPAZI} {OFF) £ 2 SPAZI} 
[<A>][ 13 *}t<5>]( 2 SPAZI } [ <A> 1 
£ 13 *} [<S>] { 2 SPAZI }{RVS} 

£ 2 SPAZI) {OFF}"; 

210 PRINT" £ RVS } { 2 SPAZI }{OFF) £ 2 SPAZI} 
-{ 13 SPAZI n { 2 SPAZI M 13 SPAZI }- 
T 2 SPAZI } [ RVS } £ 2 SPAZIMqFF}"? 

220 PRINT" {RVS} { 2 SPAZI } (OFF) £ 2 SPAZI} 

- { 13 SPAZI 2 SPAZI M 13 SPAZI }- 
T 2 SPAZI} {RVS} { 2 SPAZI} (OFF} 11 ; 

230 PRINT" { RVS } { 2 SPASI} {OFF} £ 2 SPAZI} 
!{ 13 SPAZI }I{ 2 SPAZI}!! 13 SPAZI }l 
{ 2 SPAZI) {RVS}{ 2 SPAZ I } (OFF } 11 ? 

240 PRINT" { RVS } { 2 SPAZI } {OFF] ( 2 SPAZI} 
-{ 13 SPAZI}-! 2 SPAZI}-! 13 SPAZI }- 
T 2 SPAZI HRVSH 2 SPAZI} [OFF} 11 ; 

250 PRINT" {RVS} £ 2 SPAZI} {OFFÌt 2 SPAZI} 
-{ 13 SPAZI}-! 2 SPAZ I n { 13 SPAZl}^ 
T 2 SPAZI} iKVS]£ 2 SPAZI } (OFF }" ; 

260 PRINT" {RVS} { 2 SPAZI} {OFF) f 2 SPAZI} 
[<Z>]{ 13 *}[<X>]£ 2 SPAZI M<Z>} 
£13*} [<X> 1 { 2 SPAZI} {RVS; 

£ 2 SPAZI} (OFF}"; 

270 RETURN 

280 PRINT" {CLR}"; : PRINT; FRINTT5 ; 

290 FORI ■ 1 TO 2 0 ; PRI NTS $ ? : NEXT : FRI NTTS : PR I X 
T” { HOME } ” : PRINT" { 9 GIU 1 }"; 

300 D$"” [<L>] [<J>] { 36 SPAZI } [ <L> ) [< J> 3 " : 

FRI NTD$;D3;D$;D$; RETURN 
310 PRINT" (HOME) ( 23 GIU'HyEL) 

{ 2 SPAZI }PUNTI r, SC" { 3 SPAZI } LIV. "LV 
rt £ 3 SPAZI} VITE M P"l<7>P 
320 PRINT” {HOME}": RETURN 
330 REM FUORI STANZA 
340 IFTCO4THEN360 

350 TC*0 : FORI - 1 T04 : RM ( I) • ! : NEXT : LV-LV+1 :G 
OSUBl 030 : IFLV/4™ INT ( LV/4 ) THENP-P+1 
360 GOSUB 1 8 0 : GOSUB3 10:1 FP* 0THEN6 00 
370 I FRM { 1 ) “ QTHENFOKE3 363,160 
380 IFRMC2) ^ 0THENPOKE3380 , 160 
390 I FRM ( 3 ) * OTHENPO KE3 7 23, 160 
400 IFRM(4) -0THENPOKE3740,! 60 
4)0 POKEPL, 81 : POKEPL- 1 024 , 4 


420 D-DR(JOYU ) AND1 5) 

430 IFD-0THEN420 

440 PL-PL+D: IFPEEK (PL) <> 32TKEN4 70 
450 SOUND) ,200,1 

460 POKEOPL- 1024,0: POKEOPL , 32 : POKEPL- 1024 
, 4 : POKEPL , 81 :OPL-PL: GOT04 20 
470 IFPEEK (PL) <>9THENPL-OPL:GOTO420 
480 PY-PNY (PL-3072) : PX-FNX ( PL- 3072 ) 

490 I FPY ■ 7THENRM - 1 
500 IPPY-16THENRM=3 
510 IFPX>19THENRM=RM+1 
520 IFRM-1THENCL-6 
530 IFRM-2THENCL-7 
540 IFRM-3TKENCL-5 
550 IFRM-4TKENCL-2 
560 IFRM{RM}-0THENPL=PL-D:GOTO460 
570 FX-PNX (PL-3072) :PY*"FNY (PL-3072) : GOSUB 
640 
580 REM 
590 GOTO340 

600 PRINT" {HOME} £ 7 GIU 1 }! 16 DBS) {RVS} 

{ YEL ) GAME OVER {OFF} 11 

610 PRINT" {GIU* H 7 DES } {FLASH ONÌPRBM1 U 
N TASTO PER GIOCARE 1 (< 7> }[ <7>] H : POKE2 
39,0 

620 WAIT2 39 , 1 

630 PRINT” {CLR}" :RUN 

64 0 GOSUB 2 8 0 : GOSUB 3 10:1 FPX* 2 1 ORPX- 4THENPX 
*2 : PY-1 1 ; GGTO660 
650 PX-37:PY-11 
660 GOSUBl 050 

670 FL-PX+3072+ (PY* 40) : POKEPL, 0: POKEPL- 1 0 
24 , 2 :OPL«PL 

680 MT-MN(RM,2) ; MB-MN (RM , 3) :MP-MN(RM,4) :K 
D-MN (RM , 5) :MC»MN(RM,6) 

690 FORI-OT03:X-FNA(35) + 2:Y-FNA(1 8)+2:Z«3 
072+X+ ( Y* 40 ) : PQKEZ+MP ,MB : POKEZ ,MT 
700 POKEZ- 1 024 , MC : POKEZ+MP- 1024 ,MC : M ( I } ■ Z 
t NEXT I 

710 X*FNA(1 8)+l : Y«FNA(1 2)+1 : 2-3072+X+ ( 40* 
Y) : IFPEEK (ZI O32THEN710 
720 TR" 2+MT: TL" Z : POKETL, TR 
730 FL-0:DOWHILEFL*0 
740 D*DR(JOY (1 ) AND15) : A=PEEK <PL+D} 

750 IFDOOTHBNDM-D 
760 I F JOY { 1 ) AND 1 2 8THENGOSUB 1 130 
770 IFA-32THEN81 0 
780 I F ( A" 0 ) OR ( A“ 1 6 0 ) THEN8 30 
790 I FA» TRTHENSC "SC+ 30 0 : RM ( RM ) -0;TC"TC+1 i 
GOSUB3 1 0 : GOSUBl 270 : GOT081 0 
800 FL-1 : GOTO 840 

8 1 0 PL-PL+D ; POKEOPL- 1024,0; POKEOPL, 32 : POR 

EPL- 1024,2; POKEPL , 0 : QFL«FL 
820 SOUND 1 ,100,1 

8 30 TQ»MQ:GOSUB910:IFTQOMQTHENFL“1 ;A»0;F 
ORI*20QTOOSTEP- 5 ; SOUND! ,1,2: NEXT 
840 LOOP 

850 IFA>1 00THEN870 

860 P»P-1 ;IFRM(RM) * 0THENRM { RM) -1 :SC“SC-30 
0 : TC“TC- 1 

8 70 PX-FNX (PL-3072) ; I FRM>2THENPY- 1 6 ; BLSEP 
Y*7 

880 I FPX< 20THENPX”- 20* £ (RM- 2) OR (RM-4 ) ) -3* 
{ ( RM - 1 ) OR ( RM- 3 } ) : GOTO900 
890 PX-- 1 9* ( (RM* 1 ) OR (RM-3) ) - 36* ((RM-2)OR( 
RM-4) ) 

900 PL-3072+PX+ (PY*40) ;OPL“PL: RETURN 
91 0 FORI» 1 T04 :MM-MM+1 : I FMM- 4 THENMM- 0 
920 IPM(MM) OOTHENI-6 
930 NBXTI 

940 I FI ■ 5THENRETURN 
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950 Vl«PL-3072:Yl-FNY(Vl j : Xl -FNX (Vi 1 : V=M ( 
MM) -3072 

560 Y-FNY(V) ;X-FNX(V) : H-40* ( Y> Y1 ) - 40* ( YCY 
1) :M"M- 1 é {XXXI } +1 * (X>X1 ) :TM-M(MM)+M 
570 Q-PEEK(TW) : R-PEEK ETM^MF) : IFQ- OORQ-Cl 0 
RR-C1THENMQ-MQ+1 : RETURN 

580 I F (MOKP) ANO (M< >-MP) THEN990 

581 IFM-MPTHEMIF (ROO) AND (R<>32 ) THENRETUR 
N 

982 IFM--MPTHENIF (Q<>0) AND (Q< >32 ) THENRETU 

su 

983 GOTO? 000 

990 I F ( Q< > 3 2 ) OR [ R< > 3 2 ) THENRETU RN 
1 000 FQKEM (MM) , 32 : FOKEK (MM) +MF , 32 ; POKETM- 
1 024 , MC : POKETM+HP- 1 024 f MC : POKETM, MT 
1010 POKETM+MP, MB :M (MM) "TM 
1020 RETURN 

1 030 PRINT M {CLRH 10 GIU'H 6 DBS } TU HAI 
SORPASSATO IL LIVELLO NUMERO" LV" L " 

1 040 FORW-lTQl 000; NEXTW: RETURN 
1050 I FPX ■ 3 7THENGOTO 1 070 
1060 A* 3 4 7 2 ; GOTO 1080 
1070 A-3510 

1 080 FORI * ATOA+1 20STEP4 0 : POKEI ,160: POKEI+ 
1 ,1 60: NEXTI: RETURN 
1090 D-JOY(l) 

1100 IFD-OTHENRETURN 

1110 D«DR(D) : RETU RN 

1120 REM FUOCO 

1130 H$*PL+DM:OMS-MS:PT«PL 

1140 SD-9Q0 

1150 B“PEEK(M$) 

1160 IF{B*160)OR(B«1 1 7)OR{B-l 1 8)OR(B=TR>T 
HEN1250 
1170 PT-PT+1 

1180 IPB-MBORB-MTTHEN121 0 
1 1 90 3D«SD- 1 0 : SOUND 1 , SO ,10 
ì 200 POKEOMS- 1 024 , 0 : POKEM3- 1 024 , 27 : POKEMS 
, PR: POKEOMS , 32 : OMS“MS : MS"MS+DM; GOTOl 
150 

1210 SOSC+1 0:GOSUB31 0 
1220 FORI “0TO3 

1230 IFM(I) -MSORM(I) +MP-HSTHENPOKEM ( I ) ,32 
:POKEM(I)+MP, 32 : M ( I ) *0 
1240 NEXT 

1 2 50 IFPTOPLTHENPOKEOMS, 32: POKEOMS- 10 24, 
0 

1260 RETURN 

1 270 FORI -1 OOTOl OOOSTEPSO : SOUND! ,1,2: NEXT 
x RETURN 

1280 FORI-81 9T0869: READA: POKEI , A: NEXT 
1290 SYSB1 9 

1 300 POKE6 52 98 , PEEK (65298) AND2 51 
1 310 POKE65299, { PEEK ( 65299 ) AND3) OR { 60 ) 
1320 RETURN 

1 330 DATAI 69,0,1 33,55,169,60,1 33,56,160 
1 34 0 DATA0, 185, 0,208, 153, 0,60, 200, 152 
1350 DATA208, 246, 185, 0,209, 153, 0,61 ,200,1 
S2, 208, 246, 185 ,0,21 0,153,0 
1 360 DATA62, 200,1 52,20 8,246, 1 85,0,211 ,1 53 
,0,63,200,152,208 
1370 DATA24 6 ,96 


1 3 80 FORI * ! TOl 4 : READA; FORJ® 1 5360+ ( A* 8 ) TO 1 
5 3 60+ ( A * 8 ) + 7 : READ 8 : POKEJ , B : NEXT : NEXT 

1390 RETURN 

1400 DATA0, 60, 126, 21 9 ,255, 189, 195, 126, 60 
1410 DATA77, 126, 66, 36, 24, 126, 151, 24, 126 
1420 DATA78,1 53,24,126,1 53,24,1 26,153,0 
U30 DATA82, 0,0, 0,131 ,198,108,56,0 
M40 DATA83,4,24,24, 14 0,204,1 08,56,0 
1450 DATA8S, 28, 54,98, 64, 113,63,5,5 
T 4 60 DATA36, 0,0,0, 16, 24 8,252,80,80 
1470 DATA88, 24, 36, 36, 24,126,! 09,189,189 
1480 DATA89 , 189,60,60,1 26,255,0,0,0 
1490 DATAI 0 , 0,0,24,60,60, 24,0,0 
1500 DATA? 9,0, : , 0 , 1 26 , 1 53 , 1 53 , 1 29, 255 
151 0 3ATA84, 192,224, '18,60,28,62,38,0 
1520 DATA87 ,126, 23 1 ,195, 153, 153, 195, 231,1 
26 

1530 DATA90 , 60,24, 24, 24,60,1 26,126,60 



Forbidden Crypt 
vmlon* pur VIC 26 
programmi 1 

1 1 0 POKE44,32: POKE642, 32; POKE81 92,0:POKE6 
43,30; POKE3686 6 ,1 50 : PQKE36869 ,240: PR1 
NT" (CLR } n :rem 149 

1 30 S$*CHR$ (131 ) :rem 47 

1 50 FORI *1 TOLEN ( S$ ) : POKE630+ I , ASC (MID$ (S$ 
, I) ) : NEXT: POKEI 98 , 1 : END :cem 141 

programma 2 

1 00 CS*4Q96: PRINT n (CLR 1 " : FORA*0TO2 5 5 : POKE 
76 00+A , A; POKE3 840 0+A , 0 : NEXTA : POKB369 6 
9,252 :rem 34 

1 1 0 FORA® GTO2047 ; POKEA+CS , PEEK ( 3276 8+A) ;N 
EXTA srem 212 

1 20 FORA = OTO 1 0 2 3 : READ B : PO KECS+ A , B ; NEXTA ; P 
OKE36369 , 240 srem 247 

1 30 FORA = OTOBS : READ B : POKE7 1 68+A , B : NEXTA 

:rem 164 

140 REM CARICAMENTO PROGRAMMA SUCCESSIVO 

; rem 76 

1 50 SS-CHRS (131 ) : rem 49 

1 70 FORI -1 TOLEN (SS) :POKE63Q+I ,ASC(KID§ <S$ 
,1) ) : NEXT: POKEI 98,1 : END : rem 143 
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180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
3 50 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 


DATA 60, 126, 21 9, 255, 255,21 9,1 02, 60,0, 
0,0,0,24,60,90,24 srem 10 

DATA 0,64, 32,240,240, 32,64,0,24,90,60 
,24,0,0,0,0 : rem 205 

DATA 0,2, 4, 15, 15, 4, 2, 0,0, 56 ,56,184,14 

4,254,1 8,1 8 : rem 225 

DATA 16,40,68,68,68,68,198,0,2,63,150 
,254,18,40,198,0 trem 1 

DATA 0,3,11 8,1 24,1 12,0,0,0,0,1 92,96,5 

1.30.0. 0.0 : rem 142 

DATA 40, 56,21 4,243,21 9,1 4,0,0,60, 1 22, 
247,129,126,122,122,122 s rem 47 

DATA 30,62,24,24,60,126,126,60,24,52, 
8 2,255,74,4 4,24,0 : rem 21 

DATA 14 4,96, Il 2,1 84,2 8, 1 4,7, 3,2 8, 1 16, 
31,127,15,4,4,12 ; rem 232 

DATA 12,24,240,224,224,96,32,96,20,29 
,106,252,252,36,36,1 08 ; rem 25 

DATA 124,66,66,124,72,68,66,0,16/16,1 

6.8.15.0. 0.0 : rem 3 5 

DATA 8, 8, 8, 16, 2 40,0,0,0, 72,72,84, 35,2 
0 , 8 , 7 , 0 : rem 3 6 

DATA 18,18,42,196,40,16,224,0,129,129 
,66,36,153,189,126,60 srem 251 

DATA 60,126,189,153,36,66,129,129,34, 
34,34,220,124,220,34,34 srem 74 

DATA 60,90,90,126,36,36,24,0,60,32,32 
,32,32,32,60,0 i rem 112 

DATA 12,16,16,60,1 6,112, 1 10,0,60,4,4, 

4.4.4.60.0 t rem 151 

DATA 0,8, 28, 42, 8, 8, 8, 8, 0,0, 16, 32, 127, 

32.16.0 : rem 30 

DATA 0,0, 0,0, 0,0, 0,0,8, 8, 8, 8,0, 0,8,0 

srem 109 

DATA 36,36,36,0,0,0,0,0,36,36,1 26,36, 

126.36.36.0 : rem 224 

DATA B, 30,40,28,1 0,60, 8,0,0,98, 100,8, 

16.38.70.0 srem 178 

DATA 48,72,72,48,74,68,58,0,60,24,24, 

24.24.24.24.60 :rem 152 
DATA 0 # 0, 63, 63, 63, 63, 60, 60, 0,0, 252 ff 25 

2.252.252.60.60 : rem 169 

DATA 60,60,252,252,252,252,0,0,60,60, 

63.63.63.63.0. 0 : rem 170 

DATA 0,0,255,255,255,255,0,0,60,60,60 
,60,60,60,60,60 :rem 162 

DATA 0,0, 0,0, 0,24, 24, 0,0, 2, 4, 8, 16, 32, 

64.0 srem 99 

DATA 60,66,70,90,98,66,60,0,8,24,40,3 
,8,8,62,0 srem 155 

DATA 60, 66, 2, 12, 48, 64, 126, 0,60, 66, 2, 2 

8.2.66.60.0 s rem 237 

DATA 4,12,20,36,126,4,4,0/126,64,120, 

4.2.68.56.0 : rem 222 

DATA 28,32,64,124,66,66,60,0,126,66,4 
,3,16,16,16,0 s rem 91 

D AT A 60,66,66,60,66,66,60,0,60,66,66, 

62.2.4.56.0 : rem 1 

DATA 0,0, 8, 0,0, 8, 0,0, 0,0, 8, 0,0,8,8,16 

: r em 168 

DATA 14,24,48,96,48,24,14,0,0,0,126,0 
,126,0,0,0 srem 169 


490 DATA 112,24,12,6,12,24,112,0,60,66,2, 

12,16,0,16,0 : rem 0 

500 DATA 0,64,32/240,240,32,64,0,0,2,4,15 
,15,4,2,0 srem 101 

510 DATA 0,0,0,0,24,60,90,24,0,0,0,0,240, 
48,80,144 : rem 98 

520 DATA 0,0,0,0,15,12,10,9,24,90,60,24,0 
,0,0,0 ; rem 195 

530 DATA 144,00,48,240,0,0,0,0,9,10,12,15 
,0,0, 0,0 srem 44 

540 DATA 4,4, 4, 4,4,4,4,4,0,0,0,0,224,1 6,8 
,8 srem 22 

550 DATA 8, 6, 8, 4, 3, 0,0, 0,8, 8, 8, 16, 224, 0,0 
,0 srem 30 

560 DATA 128,128,128,128,128,128,128,255, 

128.64.32.16.8.4.2.1 S rem 194 

570 DATA 1,2,4,8,16,32,64,128,255,128,128 

,128,128,128,128,128 s rem 195 

580 DATA 255,1,1,1,1,1,1,1,0,60,126,126,1 

26.126.60.0 srem 206 

590 DATA 0,0,0,0,0,0,255,0,54/127,127,127 

,62,2 8,8,0 ; rem 169 

600 DATA 64,64,64,64,64,64,64,64,0,0,0,0, 

3. 4 . 8 . 8 s rem 4 3 

610 DATA 129,66,36,24, 24,36,66,1 29,0,60,6 

6.66.66.66.60.0 : rem 207 

620 DATA 8,28,42,! 19,42,8,8,0,2,2,2,2,2,2 

,2,2 ; rem 1 27 

630 DATA 8, 28,62, 127,62, 28, 8, 0,8, 8, 8, 8, 25 

5. 8 . 8 . 8 : rem 73 

640 DATA 160,80, 160, SO, 160, 80, 160,80, 8, 8, 

8. 8. 8. 8.8.8 : rem 4 

650 DATA 0,0,1,62,34,20,20,0,255,127,63,3 

1.15.7.3.1 s rem 1 66 

660 DATA 0,0,0,0,0,0,0,0,240,240,240,240, 

24 0,240,240,2 40 ; rem 122 

670 DATA 0,0,0,0,255,255,255,255,255,0,0, 
0,0, 0,0,0 srem 103 

680 DATA 0,0,0,0,0,0,0,255,128,128,128,12 

8.128.128.128.128 srem 16 

690 DATA 170,85,170,85,170,85,170,85,1,1, 

1,1, 1/1, 1,1 srem 233 

700 DATA 0,0,0,0,170,85,170,85,255,254,25 

2.248.240.224.192.128 srem 226 

710 DATA 3, 3, 3, 3, 3, 3, 3, 3, 8,8, 9, 8, 15, 8, 8, 8 

srem 204 

720 DATA 0,0,0,0,15,15,15,15,8,8,8,8,15,0 
,0,0 srem 117 

730 DATA 0,0,0,0,248,8,8,8,0,0,0,0,0,0,25 

5.255 srem 166 

740 DATA 0,0, 0,0, 15, 8, 8, 8,8,8, 8, 8, 255, 0,0 

,0 ; r em 3 5 

750 DATA 0,0,0,0,255,8,8,8,8,8,8,8,248,8, 

8.8 : r em 1 1 6 

760 DATA 192,192,192,192,192,192,192,192, 

224,224,224,224,224,224,224,224 

: rem 235 

770 DATA 7, 7,7, 7, 7, 7, 7, 7, 2 55, 255, 0,0, 0,0, 
0,0 : r em 9 2 

780 DATA 255, 255, 2$5, 0,0, 0,0, 0,0,0, 0,0,0, 

255.255.255 srem 213 
790 DATA 1,1,1,1,1,1,1,255,0,0,0,0,240,24 

0,240,240 srem 89 

800 DATA 15,15/15,15,0,0,0,0,8,8,8,8/248, 

0 , 0,0 

810 DATA 240,240,240,240,0,0,0,0,240,240, 
240,240,1 5,15,15,15 
820 DATA 169,0,141,52,3 
830 DATA 141 ,56,3,169,127 
840 DATA 141,34,145,173,32 
850 DATA 145,41 ,128,208,8 
860 DATA 169,1 ,141 ,52,3 


: rem 

1 72 

, 240, 

240, 

s rem 

79 

s rem 

100 

srem 

21 1 

srem 

253 

srem 

21 1 

: rem 

105 
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S ^ 

D AT A 


: rem 

167 

8BO 

DATA 

45,4* ,*6,208,5 

: rem 

159 

990 

DATA 

59,2, 4- ,52,3 

s rem 

109 

930 

DATA 

' 7 3 , 1 7 , 1 4 5 , 4 : ,4 

: rem 

153 

9 ? : 

DATA 

::s, '2,173,52,3 

: rem 

150 

92: 

DATA 

24,1 35,3,141 ,52 

: rem 

ì 4 5 

930 

DATA 

3,76,75,28,173 

; rem 

119 

94 j 

DATA 

17,145,41 ,8,208 

: rem 

160 

952 

DATA 

9,173,52,3,24 

: rem 

60 

963 

DATA 

105,6,1 41 ,52,3 

s rem 

101 

370 

DATA 

! 73,1 7,145,41 , 32 

: rem 

209 

360 

DATA 

208,3,238,56,3,96 

: rem 

14 


programma 3 

20 DIMMN ( 4 , 6) ,DR ( 8) ,RM ( 4 } srem 89 

30 FORI * 1 T04 : FORJ” 1 T06 ; READMN ( I # J) :NEXTJ: 
NEXTI : FORI * 1 TOS : READDR { I ) ; NEXT 

treni 194 

40 FORl-lTQ4:RM(II«! : NEXT : rem 51 

50 DATA 7 792,5,6,22,7,1 ,7802,8,9,1 ,10, 5,7 9 
46,15, 16,1 ,1 7,2,7956,23, 24, 22,25, 4 

: rem 163 

60 DATAI ,-1,-22, -21 ,-23,22,23,21 :rem 34 
70 DEFFNY ( X) -TNT ( X/22 ) ; DEFFMX { X) *X- F!JY X 
) *22) SDEFFNA(X) -INT(RND (1 } *X) +1 






: rem 

73 

80 

TP$ ■ 11 f i 

9 9 9 i 

' t t t t f r t t r r t r t t 

, ) " iSTS»" 

"fi / 


9 f t § t t t 

f t t t 


: rem 

172 

90 


20 

SPAZI ìHLS«" 

: RED } 1 1 1S 

2 3 


8":LV-1 

:SC-0:KQ^1 

: rem 

165 


1 00 POKE36878, 1 0 ; POKE3 68 79 , 3 : PDKE3 636 9 , 25 



2iC-30720:P«79!0 

t rem 

199 

no 

IFTC»4THENTC=O:GOSU3790 

s rem 

182 

120 

GOSUBl SO 

s rem 

172 

130 

GOSU8430 : P« (MN {HM, 1 } +8; +9* ( Pi •-! > 




: rem 

9 

140 

I FMQ< > 1 1 THENG0TO 1 1 0 

s rem 

1 52 

150 

PRINT” {CLR} £ 10 GIU'HYELH 

6 DES) 



{RVSjGAME OVER’^FF)^ 

: rem 

234 

160 

PRINT” (GIU 1 } { 4 DES} (RVS1 PREMI UN 

TAS 


TO” s PRINT” f 4 DES } ( RVS } PER 

GIOCARE 


(OFF)" 

s rem 

1 74 

170 

POKEl 98, OsWAIT 198,1 SPRINT" 

{BLU} 11 : 

RUN 



s rem 

140 


1 80 GO5UB690 ; GOSUB7 1 0 : PRINT" { BLU } " : FORI ”1 
T04; IFRM(I) -0THENPOKEMN (1,1) +3,160 

: rem 99 


330 M-22+(¥>Yl)-22»(Y<Yl) X'X 1 

(X>X1) :TM«M(KM)+MsQ-PEEK(TM) : rer 239 
340 R-PEEK (TM+MP) sierr 5 

350 IF(Q«G)OR(R=0)THENMG*MQ+1 :G0T04 1 0 

: rem 243 

360 IF(MOMP) AND{MO-MP)THEN400 srem S5 
3 70 I FM-M PTHEN I F(ROO) AND ( R< > 3 2 J THENRETVR 
N : rem 19 1 

380 IFM*-MPTHENIF(QO0) AND(R<>32) THENRETT 
RH srem 236 

390 GOTO 4 1 0 ; rem 1 06 

4 00 IF(QO32)0R(R<>32) THENRETURN: rem 21 4 
410 POKEM (MM) , 3 2 : POKEM (KM) +MP , 3 2 s POKETM+C 
, MC : POKETM+M P+C , MC : PO KETM , MT : r em 14 2 
420 POK ETM+MP , MB : M ( MM ) = TM : RETURN : rem 83 
430 GOSUB690sGOSUB740 :GOSUB?6Q : POKEP, Os PO 
KEP*C , 2 :rem 252 

440 FOR:-OT03 : rem 11 

44? X-F NA 1 9 :¥-F:;A'T3):Z-7690+X+(Y*22) 

tretn 16 4 

442 IF PEEK 2 i 032THEN4 4? s rem 160 

443 PDKEZ , MT : PDKEZ-MF , MB :rem 55 

4 5: POKE2*C f MC:POKE2*MP-C,MCì « Z : NEXTI 

srem 123 

47: X-FNAH S)+l :Y«FNA(12) +1 : 2- X-76 30* [ Y* 2 
2 ) : IFPEEK{Z)O32tHEN 470 : rem 158 

430 TR- 1 0 + RM:TL»ZtPOKETL,TR: POKETL+C, 6 

: rem 207 

4 90 SYS? 1 68 : Pi »PEEK (820) : C 1 - Pi : Pi -DR { Pi > 

treni 70 

500 I FPEEK ( P+Pl +P1 ) - 9 3THENRETURN : rem 250 
510 T*MQ s GOS U B 2 8 0 : TF= PEE K ( P+ P 1 +P1 ) : IFMO-T 
THEN540 ; rem 1B 

520 IFRM(RM) -OTHENRM(RM) = 1 ; SC -SC- 300 ; TC-T 
C-1 treni 1 BO 

530 RETURN : rem 120 

540 IF (TP04S] AND { TP> = 4 0 ) TH ENP 1 -0:C1 -0 

S rem 222 

550 I FPEEK (824) THENGOSU B 6 1 0 : GOTO 490 

srem 147 

560 IF{P+P1)OTLAND(P+P1+P1}OTLTHEN570 

srem 66 

561 RM(RM) - QsTC-TC+l : SC-SC + 300 : GOSUB760 : P 
0 KETL+C , 0 : PO K ETL ,32: TL- 0 : GOTO 490 

: r e m 21 

570 G-PEEKtP + Pl) :H-PEEK(F+P1+P1) :IF(G<>MT 
) AND (G< >MB) AMD ( H< >MT) AND (H< >MB) THEN58 
0 s rem 39 

575 MQ-MG+1 : IFRM(RM) -0THENRM ( RM) - 1 STC-TC- 


1 90 NEXT : POKEP ,46: POKEP+C , 2 1 GOSUB760 

: rem 4 

200 SYS? 1 68 : Pi -QR [ PEEK (820) ) : TP- PEEK ( P+Pl 
) : rem 227 

210 I F (TP032) AND ( TP< >39} THEN200 : rem 101 

220 P*P+P1 ; I FTP- 32THENPOKEP- Pi ,32: POKEP+C 
, 2 : POKEP ,46: GOT02 00 srem 242 

230 TP-P ì FORI » 1 T04 : 1 F [MN (1,1) -P) OR(MN(1 ,1 
) +7-F) THENRM=I : I«5 : rem 106 

240 NEXTI : P= 78 97+ { 1 7* { P-MN ( RM, 1 ) ) > sMT*MN( 
RM f 2) :MB-MN [RM,3I :MP-MN (RM, 4) 

: rem 136 

250 MD-MN (RM,5) :MC“HN(RM,6) ;rem 69 

260 IFRM(RM) -1 THENPOKEP-P1 , 32 ; POKEP+C , 2 : P 



OKEP ,46: RETURN 

s rem 

255 

270 

P-TP-P1 ; GOTO200 

: rem 

125 

280 

FORI - 1 TQ4 : MM-MM+1 : IFMM- 

4THENMM-0 




s rem 

3 2 

290 

IFM(MM) OOTHENI-6 

: rem 

247 

300 

NEXTI 

: rem 

27 

310 

I FI - 5THENRETURN 

! rem 

237 

320 

VI -P-7680:Y1-FNY (Vi ì :Xl 

■ 

♦a 

a 

X 

< 

< 

-M{M 


M> - 768Q : Y-FNY C V) ;X*FNX(V) srem 2 


1 :SC«SC-30G srem 205 

576 RETURN srem 130 

580 IFC1-0THEN490 :rem 217 

590 POKEP+P2, 32: POKEP, 32:P»P+P1 : POKEP+C, 2 
s POKEP+Pl +C , 3 : rem 31 

600 POKEP, 0:POKEP+P1 ,63+Cl ;P2»P1 ;C2«C1 ;GO 
TO490 Srem 244 

61 0 AL-P+P2 ; S-0 : I FC 2-0THEMP2 - 2 2 : C2- 1 : POKE 
36376,200 ;r em 167 

620 S-S+1 : POKEAL+ ( (S-l ) *P2} , 32 : POKE3 68 76 , 
200- S* 5 : BL-FEEK ( AL+ t S * P 2 > ) : rem 31 

630 I P ( BL- MT) OR ( BL -MB ) THENSC - SC + 1 0 : GOSUB7 
60 : POKE3 68 76 , 0 : G0TO66G :rem 142 

640 I FPEEK ( AL+ (S* P2) )<> 32THENPOKEP+P2 , 6 3 + 
C2:POKE36876,0: RETURN srem 3 

650 POKE AL+ { S * P 2 ) , 63+C2 : POKEAL+ (S*P2) +C,C 
L+lsGOTO620 : rem 8 

660 AC-AL+{S*P2) : FORA= OTO 3 : POKE3 68 77 , 200 

:rem 64 

670 IFAC-M (A) ORAC-M(A) +MPTHENPOKEM (A) , 32: 
POKEM (A) +MP , 32 : M (A) -0 : POKE36 87 7 , 0 : RET 
URN : rem 1 84 

680 NEXTAs POKE36677,0: RETURN :rem 12 
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690 PRINT" {CLR}"; :PRINTTPS; : FORI - 1 TQl 7 ; PR 
I NTS I $ ; i NEXT: PRI NTBT$ ; ! rem 226 

700 RETURN :rem 119 

710 PRINT" (HOME) [ 3 GIU 1 } " ; : FORB® 1 T02 ! PRI 
NT" ( 2 DES} { , 1 1 , t ,) [ 2 SPAZI} 

[ 2 DES}"? : rem 252 

720 PRI NT" { 2 DES}-{ 6 SPAZI}-! 2 SPAZI} 

- { 6 SPAZI }-{ 2 DES }" i : PRINT" 

[ 2 DES) 1 ! 6 SPAZI }'( 2 SPAZI } ' 
j 6 SPAZI} 1 ! 2 DES}"? ; rem 35 

730 PRINT* { 2 DES}-{ 6 SPAZI}-! 2 SPAZI} 

6 SPAZI }- { 2 DES}”; SPRINT 1 ' 

{ 2 DES )+rrtrtr*[ 2 SPAZI }+,, f , r , + 
j 2 GIU* } [ 2 DES}"; :NEXTB: RETURN 

ì rem 57 

740 PRINT" (HOME } [ 8 GIU 1 3 * ; : rem 66 

750 FORI *1T03: PRINT" - { 20 DES } - " ; : NEXT : RE 
TURN ” ; rem 231 

760 PRINT" {HOME} { 19 GIU 1 }”; : rem 255 

770 PRINTLEFT? (ML? , 1 1 -MQ)CHR$ (13) ; : PRINT" 
{RVS] {YEL} { 4 DES}PUNTI"fSC; " {SIN} LI 
V. "LV" {OFF } " ; : rem 74 


780 PRINT" {HOME} 11 ; : PRINT" {BLU}" ; : RETURN 

:rem 61 

7 90 FORI ■ 1 T04 : RM { I ) “ 1 : NEXT ; LV-LV+1 

: rem 134 

800 PRINT" {CLRH 7 GIU 1 }{ 7 DES H RVS} HAI 
RAGGIUNTO" : PRINT" { 3 DES) {RVS} IL LIVE 
LLO"LV" {OFF} " :rem 106 

810 FORI * 1 TO 2 0 0 0 ; NEXT ; RETURN : r em 4 7 

READY. ! rem 173 



Per ricevere le riviste arretrate 
di 80 P E R COM M ODO R E con coeletta 
compilate e spedite II conpon qui sotto! 



50 S^f»COMNOOQ«#6/«S 





dì L. Noci Jr* 
trad ed adatt. 

di M. Crivtulb G rizzi 



9t«t« orati (nutriti dalla pardi - 
ta di tiapó - m dalla cospicuità 
— Inalta aal ctnbitntuto dal co- 
lori vi anali xaa ti nalla ac ha rata ta 
la alta riaolnaiona? 

Questo proyraaaa paraiatta di 
dablara I colori anllo ichtrao 
la atodo Istantaneo» a funziona 
Inoltra in tatti 1 divorai atodl gra- 
fici. 


C OLOR SWAP è una utility in lin- 
guaggio macchina Impiegabile dal 
vostri programmi in BASIC. Funzionan- 
do ad alta velocità, vi permetterà di mo- 
dificare a piacere i colori visualizzati sul- 
lo schermo, senza dover listare o co- 
munque “editare" Il vostro programma, 
e senza dover attendere la “ricostruzio- 
ne" dello schermo da parte del compu- 
ter 

E inoltre utilizzabile con qualsiasi tipo 
di visualizzazione: testo, multicolore, al- 
ta risoluzione, aprite e cosi vìa,., CO- 
LOR SWAP si regola automaticamente 
sulla configurazione di schermo che 
avete scelto precedentemente. 

Dopo avere caricato il programma ci 
sarà una breve attesa, necessaria per 
inserire in memoria II codice macchina, 
quindi verrà visualizzato un messaggio 
contenente I parametri necessari per le 
chiamate a questa routine. 

A questo punto digitate NEW e preme- 
te RETURN: la routine in linguaggio 
macchina risiederà comunque nella me- 
moria del computer, fino a che spegne- 
rete 3a macchina od inserirete altri valo- 
ri nelle locazioni di memoria occupate 
dalla routine stessa, 

COLOR SWAP è molto semplice da 
usare: esso crea due nuovi pseudo- 
registri dì colore nelle locazioni 700 e 
701: pensate la locazione 700 come II 
registro del vecchio colore e la locazio- 
ne 701 come II registro del nuovo colo- 
re. 

Se fate due POKE In queste locazioni 
con due diversi codici colore, e quindi 
operate la SYS alla routine di COLOR 
SWAP, ogni colore visualizzato che cor- 
risponde al codice inserito nella locazio- 


ne 700 verrà modificato nel colore il cui 
codice è contenuto nella locazione 701 . 
Per rendere piu chiaro il concetto, ecco 
un esempio. 

Dopu aver caricato e mandato In esecu- 
zione COLOR SWAP date il NEW e 
caricate un qualunque programma In 
BASIC con il quale volete fare esperi- 
menti, Lavorando in modo diretto, po- 
trete ad esemplo digitare: 

POKE700,6:POKE701 > 7:SYS XXXXX 
(dove XXXXX è l'Indirizzo visualizzato 
da COLOR SWAP) 

Premendo RETURN, farete In modo 
che la routine In linguaggio macchina 


cerchi tutto ciò che & visualizzato in blu 
(codice 6} e lo trasformi in giallo (codice 
7}, Ciò potrà, ad esempio, modificare 
un intero cielo blu In giallo, o provocare 
la stessa trasformazione in un piccolo 
carattere rldefinlto. 

La modifica dei colori avviene in modo 
istantaneo e, se non vi piace il risultato, 
invertite I valori delle POKE e rifate la 
SYS: ritornerete nelle condizioni inizia- 
li. 

Man mano che prenderete confidenza 
con TutìlìMO di COLOR SWAP vi accor- 
gerete che ci sono alcune cose impor- 
tanti da tenere a mente: Il programma 
è stato progettato per modificare qual- 
siasi visualizzazione di un particolare co- 
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10 re, e dò in alcuni casi può essere scon- 
certante, Se modificate un cielo blu, ed 

11 colore de! testo è a neh ‘esso blu, en- 
trambi verranno sostituiti nel colore 
prescelto, Inoltre, può risultare difficile 
usare COLOR SWAP in modo multico- 
lore nel VIC 20 ed In modo colore di 
fondo esteso con II C64. Il programma 
funziona bene, ma questi modi grafici, 
per la loro complessità di utilizzo, richie- 
dono che 11 programmatore sappia sem- 
pre esattamente che cosa sta facendo. 
Infine, per sicurezza, usate nelle due 
POKE solo i numeri corrispondenti ai 
codici di colore disponibili sul computer 
che state utilizzando. 

Notate Inoltre che difficilmente COLOR 
SWAP funzionerà correttamente in con- 
giunzione con altre routine in linguaggio 
macchina, comprese alcune cartridge 
come la Super Expander ed altre esten- 
sioni del BASIC. 


Cosa è fatto il programma 

I vari blocchi di codice macchina lavora- 
no come le subroutlne in BASIC, e CO- 
LOR SWAP è semplicemente un insie- 
me di subroutine in codice macchina 
combinate insieme nella giusta sequen- 
za. 

La struttura dei programma può essere 
immaginata come una serie di villaggi 
collegati da una strada a senso unico: 
se volete, ad esempio, evitare di passa- 
re dal villaggio che cambia II colore del 
testo, immettetevi sulla strada dopo il 
villaggio. Con COLOR SWAP, una vol- 
ta entrati nella strada a senso unico do- 
vete necessariamente percorrerla fino 
alla fine, dove il controllo verrà ripassa- 
to al BASIC. 

I diagrammi riportati mostrano come è 
strutturato il programma: le prime se- 
zioni rappresentano modifiche che pos- 
sono essere effettuate dal BASIC, gene- 
ralmente con una POKE In una partico- 
lare locazione di memoria. 

Potete evitare di “passare" da queste 
porzioni iniziali di programma, evitando 
così dì ottenere alcuni cambiamenti di 
colore non desiderati. 

Evitare di “passare" da un certo blocco 
dì programma è molto semplice: basta 
fare una SYS allìndirizzo del primo “vil- 
laggio", lungo la strada, dal quale vole- 
te “passare": ciò, naturalmente, dopo 
aver effettuato le due POKE con 1 codici 
dì colore desiderati. 

Questa caratteristica di molteplici punti 
di ingresso posseduta da COLOR 
SWAP è ovviamente utilissima, e con 
un minimo di esperienza e sperimenta- 
zione potrete ottenere effetti sorpren- 
denti. 


Rllocazione del programma 

COLOR SWAP è rilocabile. Se la zona 
di memoria in cui esso risiede "per de- 
fault" vi serve per altri scopi, potete 
tranquillamente trasferirlo in qualunque 
altra zona dì memoria libera. 

La linea 120 del programma caricatore 


In BASIC contiene la variabile RA, che 
può essere modificata con qualsiasi va- 
lore (congruente) desiderato. In ogni ca- 
so. se rilocate COLOR SWAP nell‘area 
normalmente occupata dai programmi 
BASIC, dovete prendere alcuni accorgi- 
menti. per evitare possibili sovrascrlttu- 
re. 

Dal momento che il VIC 20 possiede 
una memoria molto limitata, all ‘utente 
dì questa macchina viene fornita l'op- 
zione di locare COLOR SWAP nel buf- 
fer registratore (locazioni 828- 1019}. 

I programmi ìn linguaggio macchina che 
occupano queste locazioni sono protetti 
dal BASIC, ma vengono distrutti dalle 
operazioni con l'unità a cassette, Così, 
per aiutare 1 possessori di VIC 20 la 
versione di COLOR SWAP per questo 
computer può rìlocarsi, sistemandosi 
automaticamente in cima alla memoria 
di qualsiasi configurazione disponiate. 
Per Tutilizzo di questa opzione è suffi- 
ciente rispondere alle domande poste 
dal computer. 

Gli utilizzatori del VIC 20 che ridefini- 
scono la variabile RA possono cancella- 
re le lìnee da 10 a 60 ed Inserire II 
valore prescelto nell' espressi© ne RA-- 
RA all ‘ini ilo della lìnea 120. 

Si ricordi che, con qualsiasi ri locazione, 
gli indirizzi a cui vengono fatte le SYS 
devono essere congruentemente modi- 
ficati. L'espressione tra parentesi nel 
diagramma mostra come ottenere I nuo- 
vi indirizzi (RA è il valore del numero 
che appare dopo la SYS nel messaggio 
generato da COLOR SWAP). 

COLOR SWAP offre inoltre ai posses- 
sori di VIC 20 una notevole particolari- 
tà: registri colore separati per bordo e 
fondo. 

Normalmente, infatti, il colore del fondo 
e del bordo sono nel VIC 20 combinati 
in un unico numero, contenuto nel regi- 
stro in 36879; con COLOR SWAP, in- 
vece, il colore del fondo è contenuto 
nella locazione 785, mentre II colore del 
bordo è contenuto nella locazione 786. 

II contenuto di queste locazioni può ino! 
tre essere letto normalmente da qual- 
siasi programma tramite un'istruzione 
PEEK. 


Avvertenze per Putì lizzo con 
VIC 20 

COLOR SWAP opera in maniera così 
semplice, che non può essere esteso ìn 
modo da coprire il “re verse" sui VIC 
20. Tuttavia, usando il programma "In- 
vertitore per VIC 20“ si ottiene re- 
versione dei bit da un valore all'altro 
ogni volta che sì esegue una SYS743. 
Proprio come COLOR SWAP. anche 
questo programma può essere rilocato, 
modificando il valore della variabile RA. 
Crediamo tuttavia che raramente sì 
possa presentare In questo caso la ne- 
cessità di una rilocazione: il programma 
è totalmente indipendente da COLOR 
SWAP, sicuro da sovrascritture da par- 
te del BASIC e non risiede nel buffer 
del registratore. 


Eaenapl di posilblll utilizzi 

Dopo un po‘ di sperimentazione con 
COLOR SWAP potrete trovare una 
moltitudine di utilizzi diversi. 

Benché esso sìa stato concepito fonda- 
mentalmente per Tutilizzo in modo di- 
retto, in modo da “editare" i colori vi- 
sualizzati. può tranquillamente essere 
utilizzato ìn molte altre maniere. 

Ad esempio, ì possessori di C64 do- 
vrebbero sapere che non è possibile vi- 
sualizzare un carattere “pokandolo" di- 
rettamene nella memoria di schermo, a 
meno che venga effettuata anche la cor- 
rispondente POKE nella memoria colo- 
re. 

Con COLOR SWAP, conoscendo i valo- 
ri contenuti nella memoria colore, è pos- 
sibile creare un contrasto tra il colore 
di fondo e quello del testo con una SYS 
alle routine d; COLOR SWAP. 

Con COLOR SWAP in memoria nel vo* 
stro C64, e lo schermo nei colori stan- 
dard, provate questa linea In modo di- 
retto: 

POKE700,6:POKE701,1: 
SY349286:POKEl 524,83 

Vedrete un cuoricino bianco apparire 
vicino al centro dello schermo. Fate del* 
le POKE di altri codici carattere nella 
mappa video, e li vedrete apparire di- 
rettamente sullo schermo: conveniente, 
vero? 

COLOR SWAP può inoltre essere ag- 
giunto ai programmi come subroutlne: 
come parte di lunghi programmi CO- 
LOR SWAP permette di avere finestre 
dt testo che lampeggiano rapidamente 
in divers: colori, scritte o disegni che 
compaiono o spariscono, e permette di 
modificare istantaneamente N colore dì 
caratteri e sprlte. 

L’unica limitazione è la fantasia e la ca- 
pacità dei programmatore. 


Locazioni di COLOR SWAP 

Vie 20 - Inizio 

52S i.RA) cambia il colore testo 
corrente 

844 (RA+16) cambia il colore ausi- 

liario 

375 (RA+47) cambia il colore di 

fondo 

906 (RA+78) cambia il colore del 

bordo 

942 (RA+1 14)cambia i colori rima- 

nenti 

Per verificare il colore dì fondo: 

S YS828 : P R [NIFE E K{78 Sì 

Per verificare il colore del bordo: 

SYS828: PRINTPEEK[786Ì 

C64 - Inizio 

49152 {R A) cambia il colore testo 

corrente 

49171 (RA+ 19} cambia il colore del 
bordo 

49190 (RA+38) cambia U colore di 
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fondo 

49196 (RA+44} cambia II colore degli 
iprite 

49254 (RA+ 102) cambia 11 colore di 
fondo esteso 


49286 (RA+134)cambia i colorì rima- 
nenti 

NOTA; Se COLOR SWAP è rilocato, 
usate le espressioni tra parentesi per 


calcolare ì nuovi indirizzi, In base al nuo- 
vo indirizzo RA Gli utenti di VlC 20 
che rilocano automaticamente attraver- 
so il caricatóre BASIC dsvoao ricalco- 
lare In questo modo gli indirizzi. 


Color Swap 

versione per C64 

10 REM *CGLOR-SWAP C64* N E* LM, A B' L 
'INDIRIZZO, EIE' IL CONTATORE * 

: rem 33 

15 PR I NT" { C LR } ATTENDERE . . . ” srem 2 40 

20 N*74 : F0RA= 68 5T069QSTEP5 : FORI«0TO3 : PDKE 
A+I,N:NEXTI;POKEA+I,96;N*N-64 iNEXTA 

; rem 1 1 3 

30 CK*0:PORI = 0TQ9:X*PEEK(685+I] ;CK«CK+X:N 
EXT irem 252 

40 REM CK E r IL CHECKSUM E X UNO DEI SUOI 
COMPONENTI . : tem 245 

50 IFCKOS2 8TKENPR1NT" {CLR} (GIU 1 }CONrRDLL 
A LA LINEA 20111*: END : ten 1 3 5 

100 CK»0 : FORA* 7Q2TO750 : READN : PDKEA , N ; CK«C 
K+N:NEXTA : raT, "45 

1 1 0 IFCKOS1 58THBNPRINT" {CLR} {GIU • } CONTRO 

LLA LE LINEE DA 702- 750 l l 1 M : END 

:ram 167 

120 RA-497 52:RA$-STR${RA) : L*LEN ( RAS :RA3- 

RIGHTS (RA$ , L-l 1 ; REM RA IS RELOC - ADR. 

:ra^ 228 

130 CK*0: FORA* RATO RA+392 : READN : ?0KEA,N:CK 
■CK+N : NEXTA irer, 78 

140 IFCK04671 3THENPRINT” {CLR* {GIU 1 } CONTE 
OLLA LE LINEE DA 491 52-495421 il " 5 END 

:rem 180 

150 PRIHT" {CLRHGIU' }FAI POKE? 0 0 , OC i P0KE7 
01 ,NC:SYS U RA$:PRINT"PER SCAMBIARE I C 
GLORI , " : rem 195 

160 PRINT:PRXNT ,l DOVE OC E 1 IL CODICE DEL V 
ECCHXO COLORE" : tara 49 

170 PRINT^E NC E 1 IL CODICE DEL NUOVO COLO 


RE. "t END 

: rem 

86 

702 DATA 216,173,188,2,41,75 

: rem 

97 

708 DATA 141,188,2,173,789,2 

i rem 

109 

714 DATA 47 

,15,141 ,189,2,169 

: rem 

103 

720 DATA 0, 

1 41 , 772,2,141 /1 77 

: rem 

80 

726 DATA 2, 

141 ,169, 2,141 ,170 

; rem 

93 

732 DATA 2, 

96,173,33,208,41 

: rem 

51 

73 B DATA 15 

i, 205, 188, 2, 208, 6 

: rem 

56 

744 DATA 173,189,2,141,33,208 

: rem 

154 

750 DATA 96 

: r em 

37 

49152 

DATA 

32,190,2,173,134,2 

: rem 

1 45 

49158 

DATA 

41 ,15,205,188,2,2GB 

: rem 

208 

49164 

DATA 

9,173,189,2,147 ,134 

: rem 

21 2 

497 70 

DATA 

2,32,190,2,173,32 

: rem 

94 

497 76 

DATA 

208,41 ,15,205,188,2 

: rem 

208 

491 32 

DATA 

208,9,173,189,2,141 

: rem 

21 4 

491 88 

DATA 

32,208,32,190,2,32 

; rem 

153 

49194 

DATA 

222,2,32,190,2/173 

ì rem 

149 

49200 

DATA 

37,208,41 ,1 5, 205, 1 8E! 

: rem 

252 

49206 

DATA 

2,208,6,173,189,2 

: rem 

108 

4921 2 

DATA 

141 ,37,208,1 73, 36, 208 ì rem 

50 

4927 8 

DATA 

47 ,15,205,188,2,208 

i rem 

205 

49224 

DATA 

6,173,189,2,141,38 

: rem 

161 

49230 

DATA 

208,760,0,185,39,208 

: rem 

253 

49236 

DATA 

41 ,15,205,1 88,2,208 

: rem 

205 

49242 

DATA 

6,173,189,2,153,39 

s rem 

165 

49248 

DATA 

208,200,192,8,208,235 

: rem 

53 

49254 

DATA 

32,190,2,173,17,208 

: rem 

204 

49260 

DATA 

41,64,240,22,32,222 

: rem 

191 

49266 

DATA 

2,1 73,36,208,41 , 7 5 

: rem 

1 56 

49272 

DATA 

205,188,2,208,6,173 

: rem 

21 1 


49278 

DATA 

799,2,141 ,36,208,24 

rem 

215 

49284 

DATA 

144, 7, "7 3, 22, 208, 41 

rem 

207 

49290 

DATA 

76,240,37,169,255,141 

rem 

55 

49296 

DATA 

170,2,773,34,208,41 

rem 

207 

49302 

DATA 

75,205,7 86,2,203,6 

rem 

152 

49308 

DATA 

"73,189,2,741 ,34,208 

rem 

4 

4 93 W 

DATA 

773,35,208,47 ,15,205 

rem 

250 

4 9329 

DATA 

1 88,2,208,6,173,1 89 

rem 

276 

49326 

DATA 

2,141 ,35,208,1 73,17 

rem 

203 

49332 

DATA 

208,41 ,32,206,5,169 

rem 

206 

49338 

DATA 

255,141 ,169,2,173,0 

rem 

208 

49344 

DATA 

221 ,41 ,3,201 ,3,206 

rem 

139 

49350 

DATA 

4,162,0,134,254,201 

rem 

T 90 

49356 

DATA 

2,208,4,162,64,134 

rem 

156 

49362 

DATA 

254,201 ,1,208,4,162 

rem 

196 

49368 

DATA 

128,134,254,201,0,206 

rem 

47 

4937 4 

DATA 

4,162,192,1 34,254,173 

rem 

56 

4 9380 

DATA 

24,208,41 ,240,32,173 

rem 

249 

49386 

DATA 

2,32,180,2,101,254 

rem 

147 

49392 

DATA 

133,254,169,0,133,253 

rem 

52 

49396 

DATA 

169,0,133,251 ,169,216 

rem 

63 

49404 

DATA 

133,252,162,0,142,167 

rem 

41 

4941 0 

DATA 

2,162,0,142,168,2 

rem 

91 

4941 6 

DATA 

162,234,142,183,2,160 

rem 

44 

49422 

DATA 

0,177,251 ,41,15,205 

rem 

196 

49428 

DATA 

188,2,208, 5,173,189 

rem 

224 

49434 

DATA 

2,145,251 ,173,169,2 

rem 

207 

49440 

DATA 

201 ,255,206,2,240,55 

rem 

246 

49446 

DATA 

177,253,41,15,141 ,171 

rem 

52 

49452 

DATA 

2,205/1 86,2,208,6 

rem 

1 06 

49458 

DATA 

1 73,1 89,2,1 41 , 1 71 ,2 

rem 

212 

49464 

DATA 

177,253,47 ,240,141 ,172 

: rem 

101 

49470 

DATA 

2,32,173,2,205,1 68 

t r em 

154 

49476 

DATA 

2,208,13,173,189,2 

: rem 

163 

49482 

DATA 

32,178,2,24,109,171 

:rem 

209 

494B8 

DATA 

2,24,144,7,173,172 

ì rem 

1 64 
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49494 DATA 
49500 DATA 
49506 DATA 
49512 DATA 
49578 DATA 
49524 DATA 
49530 DATA 
49536 DATA 
49542 DATA 


2,24,109,171 ,2,145 :ce m 
253,200,204, 168, 2, 240: rem 

2.208.170.1 74,1 83,2 ;tem 
224,96,208,1,96,230 ite m 
167,2,230, 252,230, 254: rem 
162,3,236,167,2,240 srem 
2,208,144,162,232,142:rem 
168,2,162,96,142,183 :tem 

2.208.1 32 : rem 


155 
33 
204 
217 
47 
203 
39 
1 3 
220 



Color 9w«p 
versi oa* par VIC 29 

10 HT-PEEK (644 J : LT-PEEK { 64 3 } : PRINT" {CLR } S 
E USI IL NASTRO, { 5 SPAZI) PREMI {RVS}C 
{OFF) * * : rem 201 

20 MT-HT* 2 56+LT: MT*MT- 1 8 3 : HT* INT (MT/2 56 ) : 
LT-MT- HT* 2 5 6 : PRINT" {GIU 1 } ALTE I MENT I PR 
EMI { RVS )D (OFF ) .** :rem 156 

30 GETR6 ztem 105 

40 IFR$- M D M THENRA=*828:GOTO0O :rem 170 
50 IFR$-"C ,, THENPOKE55,LT: POKE56,HT:CLR:RA 
-PEBK £ 56 J *256+PEEK {55) :GOTO80;rem 17 
60 GOTO 30 : rem 2 

70 REM *C0L0R-SWAP VIC- 20* N E 1 L/M, A E 1 
L 1 INDIRIZZO ED I IL CONTATORE 

:rem 157 

00 N* 74 : FORA-6 80TO6 85STEP5 : FORI -0TO3 : POKE 
A+I ,N:NEXTI : FOKEA+1 , 96 : N-N- 64 : NEXTA 

: r em 118 

90 CK-Q : FORI -0TO9 : X=PEEK (600+ 1 ) :CK=CK+X:N 
EXT trem 253 

10Q REM CK E* IL CECKSUM E X UNO DEI SUOI 
COMPONENTI* :rem 218 

110 IFCX0 52 8THENPRINT" £CLRH 2 SPAZI } 
{GIU 1 )CONTROLLA LA LINEA 8011!" :END 

:rem 236 

1 30 CK-Q : PORA-RATORA + 1 82 : READN : POKEA, N : CK 

■CK+N :NEXTA :rem 75 

140 IFCKOl 991 OTHENPRINT" {CLR} (GIU* } CONTE 
OLLA LE LINEE 3 2 8- 1 008 1 I !" : PRINT : END 

;rem 83 

1 50 PRINT" {CLR} {GIÙ* }QRA: n ; PRINT: FRISI" PO 
KE 700 ,OC : POKE701 , NC" : PRINT" SYS" RA ; PR 
I NT S PRINT :rem 102 

160 PRINT" DOVE { 2 SPAZI} OC E' IL VECCHIO C 
OD ICE COLORE" :?RINT M E NC E' IL NUOVO 



CODICE COLORE" 

: rem 

1 21 

170 

END 


: rem 

111 

828 

DATA 

173,134,2,41,15,205 

: rem 

95 

834 

DATA 

1 £8,2,208,6, 1 73,1 89 

: rem 

117 

840 

DATA 

2,141,134,2,173,14 

: rem 

36 

846 

DATA 

144,41 ,15,141 ,19,3 

: rem 

47 

852 

DATA 

173,14,144,32,168,2 

: rem 

100 

858 

DATA 

205,1 88,2,208,12,173 

: rem 

157 

864 

DATA 

1 89,2,32,1 73,2, 109 

: rem 

56 

870 

DATA 

19,3,141 ,14,144,173 

; rem 

97 

076 

DATA 

15,144,41,240,141,16 

; rem 

146 

882 

DATA 

3,32,168,2,141 , 1 7 

i rem 

255 

ese 

DATA 

3,205,188,2,208,12 

: rem 

56 

094 

DATA 

1 73,1 89,2,141 ,1 7,3 

: rem 

59 

900 

DATA 

32,173,2,141 ,16,3 

: rem 

241 

906 

DATA 

173*15*144,41 ,8*141 

; rem 

98 

912 

DATA 

19,3,173*15,144,41 

; rem 

46 

91 e 

DATA 

7,141,18,3*205,188 

: rem 

57 

924 

DATA 

2,208,6,173,109,2 

: rem 

6 

930 

DATA 

141,18,3,13*19,3 

: rem 

197 

936 

DATA 

13,16,3,141*15*144 

; rem 

43 

942 

DATA 

169,0*168,1 70,133*251 

: rem 

203 

948 

DATA 

1 73,2,1 44 ,41 ,128,208 

; rem 

155 

954 

DATA 

6,169,140,133,252*200 

i rem 

213 

960 

DATA 

4,169,150,133,252,177 

: rem 

206 
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251,41 *15*205,180*2 

: rem 

104 

203,5,173,1 89,2,145 

: rem 

112 

251,200,208,239*230,252 

; rem 

46 

232,224,1,208*232,177 

: rem 

203 

251 ,41 ,15,205,1 88,2 

: rem 

101 

208, 5,173,1 09,2,145 

: rem 

118 

. 251 ,200,192,251,240,2 

;rem 

223 

. 208,235,96 

: rem 

222 


Invertitore per VIC 20 

10 REM *VIC INVERTER* CK * CHBCKSUM,A - 
INDIRIZZO, N - L/M * : rem 33 

20 RA«743:RA$*STRS { RA) :L-LEN(RA5) :RA$-RIG 
HTS (RA? ,L-1 ) :REM RA- INO * RILOCAZIONE 

: rem 141 

30 CK-0: FORA -RATO RA+24 : RE ADN: POKEA+I , N:CK 
-CK+N: NEXTA ;rem 89 

40 IFCK02391 THENPRINT' 1 {CLR) {GIU 1 )"SPC (3) 
M CONTROLLA LE DATA ! 1 !" : END :rem 233 

50 PRINT** {CLR} {GIU 1 } SYS" RAS" PER ATTIVARE 
E DISATTIVARE IL RE VERSE END 


743 

DATA 

173,15,144,41 ,8,240 

: rem 

: rem 

1 44 
97 

749 

DATA 

9,173,15,144,41,247 

: rem 

111 

755 

DATA 

141,15,144,96*173,15 

:rem 

156 

761 

DATA 

144,9,8,141,15,144 

: rem 

51 

767 

DATA 

96 

;rem 

45 




Ritorna in edicola 




VIDEO BASK 

Il corso più entusiasmante su cassetta 
del Gruppo Editoriale Jackson per Commodore 64, 

VIC 20 e Spectrum 

200000 copie vendute 


d*f 1* fa*ckolo dilla primo «dlxkm* 






ut » 0 


Il corso è composto da: 
20 fascicoli +. 

20 cassetto + 

5 splendidi raccoglitori 


(QuatioctfldnolT} 


Oggi è davvero fadie imparare 11 
Basic. Con Video Basic II corto tu 
cassetta che tt permette di 
rogrammare subito II tuo computer, 
facile: tu diledl, lui risponde, 
tu Impari Passo dopa pasto. 

Sul tuo schermo appaiono le 
domande, le risposte, gli eserdil e 


tu, senza fatica, presto e bene, 
impari a conoscere 
e programmare II tuo computer, sia 
esso un VIC 20, un Commodore 64 o 
un Slnda ir* 

Video Basic è In edicola. 

Provalo subito. 

Ogni lezione è uno spettacolo. 


Oggi 11 Basic si Imparo cosi 
Video Basic, il corso su cassetta per 
parlare subito col tua computer. 

Video Basic 

per Imparare non solo H Basic 



Un'altra grande idea firmata 

GRUPPO EDfTORIALE JACKSON 















di J.L Cilvla 

trad. e adatt, 

di il. CrUtiU) Grilli 



la qi«tto gioco basato ni ragto- 
■aaaato deduttivo la logica ad 
u po' di fortuna vi aiuteranno 
n« II* Indo v Inara 11 codlca «agra- 


Q uesto gioco è basato sull'idea del 
popolare “Master mind". Dopo 
aver caricato il programma ed averlo 
attivato con II RUN vi verrà chiesto se 
desiderate leggere le Istruzioni. All’ ini- 
zio del gioco appaiono sei diamanti rossi 
nell 1 angolo superiore sin litro dello 
schermo: sotto questi diamanti è nasco* 
sto un codice di colori composto da sei 
elementi. Scopo del gioco è raffigurare 
e copiare questo codice nel minor nu- 
mero di tentativi possibile. 

Potete inserire la vostra scelta premen- 
do I tasti corrispondenti al colori deside- 
rati 0 numeri da 1 a 8 nella parte supe- 
riore sinistra della tastiera!. 

Come ciascun tasto viene premuto II co- 
lore corrispondente alla scelta viene vi- 
sualizzato sullo schermo, accompagna- 
to da una nota musicale (la sequenza di 
tutti gli otto colori disponibili suona una 
scala musicale). Dopo che sono stati 
premuti sei tasti II computer confronte- 
rà le vostre scelte con II codice nascosto 
sotto I diamanti H punteggio viene vi- 
sualizzato a destra della vostra scelta. 
Il codice segreto può contenere più vol- 
te lo stesso colore: ad esemplo, può 
contenere due volte Li blu o tre volte II 
bianco. 


Punteggio 

Esistono tre simboli diversi per indicare 
Il punteggio raggiunto in ciascun 
round: 

— Jl segno ’+" indica che uno dei colori 
scelti è corretto e si trova nella giusta 
posizione (quest' ultima non corrisponde 


necessariamente alla locazione del *+" 
ne ir Indicatore di punteggio); 

- uno “0" Indica che uno dei colori è 
corretto, ma la sua posizione è sbaglia- 
ta; 

- una * indica che 11 colore è errato, 
cioè non appartiene al codice segreto. 
Ad esempio, supponiamo che 11 vostro 
punteggio appaia in questo modo: 

++00@ @ 


Ciò significa che due delle vostre scelte 
rappresentano 1 colori corretti nel posto 
corretto, due delle vostre scelte rappre- 
sentano i colori corretti nella posizione 
sbagliata e due delle vostre scelte rap- 
presentano colori che non esistono nel 
codice segreto. 

Tenete sempre presente che ia posizio- 
ne de ir indicato re di punteggio non cor- 
risponde alla posizione del colore relati- 
vo all'Interno del codice segreto. 
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Se premete il tasto sbagliato, potete 
usare il tasto DEL per annullare unterà 
scelta, e se “date forfait" e desiderate 
vedere quale sia f! codice segreto, pre- 
mete li tasto “9": Il codice verrà visuali!» 
iato, e naturalmente perderete la parti» 


ta. 

Un punteggio di nove o dieci tentativi 4 
molto buono, di sei. sette o otto È ecce» 
rionale, e di cinque o meno £.*< un po' 
troppo fortunato! 


Disponete di 12 round per indovinare 
la corretta combinazione di colori: man 
mano che procedete studiate attenta* 
mente l punteggi delle scelte precede n» 
ti, al fine di dedurre logicamente quale 
sia il codice segreto. 

Cypber 

uertioa* per C64 

70 PRINT" (CLR} " ; POKE532 80 , 6 l PQKES328 1 ,12 

trem 147 


30 GOSUB1210 : rem 172 

90 PRINT: PRINT" {CLR} { WHT] {RVSl ISTRUZIONI? 



{ 2 SPAZI) S/N {OFF}" 

: rem 

108 

100 

G BTA$ : I PA$ = " " THEN 1 0 0 

: rem 

69 

110 

I FA$ » " S " THKNGOTOl 060 

t rem 

137 

120 

IPA$<>"N"THEN1 00 

; r em 

83 

130 

PRINT" (CLR) " sDINA (5) #2(5) ,S<5> ,RC(8) , 


OC (8) 

: rem 

109 

140 

GLOC- 1 039 :CGLOC=553H :ANS*1024:A$ 



FOKB54296 ,15 

; rem 

231 

150 

HF*54273:LF”54272 :HP»54275s 

LP=54274 : A 


D” 54277 : SR=54278:WF»54276 

: rem 

233 

160 

CANS-5S296:SLOC=1053:X»0 

; rem 

116 

170 

POKE649, 1 

; rem 

199 

130 

FORK-1T012 

: rem 

63 

190 

FORI-JT06 

: rem 

1 7 

200 

POKEGLOC , 81 : POKBCGLOC , 1 1 

: rem 

21 a 

210 

GtOC -GLOC + 2 : CGLOC «CGLOC+2 

: rem 

27 

220 

NBXTI 

; rem 

23 

2 30 

GLOC -GLOC + 6 8 : CG LOC •CGLOC +68 

; rem 

1 49 

240 

NEXTK 

; rem 

32 

250 

GLOC- 5 039: CGLOC =55 31 1 

: rem 


260 

FORL-OTOS 

: rem 

1 6 

270 

B-INT(RNDd) *8) 

:rem 

23 

280 

RC (B) =RC (B) +1 

; rem 

131 

290 

A (L) -B 

: rem 

248 

300 

PGKEANS ,90: FOKECANS , 2 : GOSUB 1510: AS5 - A 


N$+2;CAN$*CANS+2 

: rem 

92 

310 

NEXTL 

: rem 

31 

320 

ANS«1024:CANS=55296 

: rem 

34 

330 

FORI «0TO5 

ì rem 

lì 

340 

GETZ$:IFZ$*" " THEN 340 

: rem 

1 31 

350 

IFASC ( Z$ ) ■ 2 OTHENGOTO 1020 

: rem 

151 

360 

IFASC (ZS) <490RASC (Z$) >57THEN340 

: rem 

46 

370 

Z(I)-VAL(ZS) 

: rem 

125 

380 

Z(I)-Z(I)-1 

; rem 

30 

390 

IF2 (I) =8 THEN 800 

: rem 

91 

400 

GC ( Z { I } ) =GC {2(I))+1 

: rem 

203 

410 

PO KECGLOC ,2(1) 

: rem 

76 

420 

GOSUB 1 330 

; rem 

221 

430 

CGLOC-CGLOC+2 

; r em 

1 

440 

NEXTI 

; rem 

32 

4 50 

FORI *0TO7 

: rem 

16 

460 

I FGC ( I J < =RC ( I ) THENQ-Q+GC ( I ) 

trem 

82 

470 

IFGC (I) >RC ( I ) THENQ*Q-*-RC ( I ) 

:retn 

35 

430 

NEXTI 

: rem 

36 

490 

FORK*0TO5 

; rem 

20 

500 

IFZ (K1 -A(K)THBNF=F+1 

; rem 

136 

510 

NEXTK 

trem 

32 

520 

IFQ-0THEN610 

t rem 

170 

530 

IFF-0THEN58O 

; rem 

166 

540 

FORK-OTOF-1 

; rem 

127 

550 

StKJ-91 

srem 

48 

560 

NEXTK 

; rem 

37 

570 

IFF-QTHEN61 0 

: rem 

197 

530 

FORK=FTOQ-l 

\ rem 

164 

590 

S(K) =87 

% rem 

57 

600 

NEXTK 

: rem 

32 

610 

FORK-0TO5 

: rem 

14 

620 

POKESLOC , S (K) 

x rem 

19 


630 

POKESLOC+54272,0 

* rem 

132 

640 

SLOC-SLOC+2 

j rem 

150 

650 

NEXTK 

: rem 

37 

660 

SLOC • SLOC+6 8 

: rem 

212 

670 

CGLOC -CGLOC ♦ 6 6 

; rem 

67 

680 

1-0 

: rem 

84 

690 

X-X+! 

: rem 

232 

700 

IFF-6THBN800 

: rem 

166 

710 

IFX-l 2GOTOSOO 

irem 

240 

720 

FORK-OTO5 

s rem 

16 

730 

S (K) -0 

trem 

246 

740 

NEXTK 

trem 

37 

750 

Q-0:P-0 

trem 

71 

760 

FORK-OTO7 

trem 

22 

770 

GC ( K) -0 

trem 

49 

780 

NEXTK 

trem 

41 

790 

GOTO330 

t rem 

111 

800 

FORT-0TO5 

t rem 

24 

31 0 

POKEANS , 61 

: rem 

63 

820 

POKECASS, Atti 

t rem 

0 

8 30 

SOSU 9 1 423 

: rem 

226 

840 

ASS-AHS-2:CASS«CANS+2 

t rem 

24 

3 50 

NSXT 

: rem 

220 

360 

1?Z 1 *33R . X»! 2«:OF<6 ! G0T091 0 




! rem 

222 

870 

PRINT" ” : ?R I NT " " : PRI NT 

trem 

134 

330 

PRINT" (BLK) HAI VINTO!!" 

SPRINT" {GIU * ) 


(BLK) MOSSE: "X 

: rem 

106 

890 

GOTO920 

trem 

117 

910 

PRINT" {BLK) { 3 GIU*) HAI 

PERSO! r 




trem 

203 

920 

PRINT: PRINT 

t rem 

239 

930 

PRINT" { 14 GIU 1 } PREMI UN TASTO 11 




i rem 

6 

940 

GETC$ t IFC$« 11 "THEN940 

t rem 

97 

960 

PRINT" {CLRHWHTH 2 GIU 1 

}{ 2 SPAZI }VU 


01 GIOCARE ANCORA? { 2 SPAZI H RV$ }S/N 


{OFF}" 

trem 

206 

970 

GETA$ 

trem 

229 

980 

I FA? * " 11 THEN9 7 0 

t rem 

229 

990 

IFA$-"S"THENRUN90 

: rem 

247 

1000 IFA8<>"N"THEN970 

i r em 

144 


1009 PRINT" {CLR} " : POKE54 296,0 s rem 253 

1010 FOKB53 2 80 , 1 4 : POKB5328 1 ,6;PRINT" [<7>) 

" :POKE649,10:END trem 161 

1020 FORDE" I * 2TOl STEF- 1 : POKECGLOC-DÉ , 1 2 :G 
OSUB1 51 0 : NEXTDE tram 29 

1030 FORRE*QTOB:GC (RE) =0 tNEXTRE trem 179 
1040 CGLOC»CGLOC- (1*2) srem 245 

1050 GOTO330 :rem 1 49 

1060 PRINT" {CLR}DEVI TROVARE UN CODICE DI 
COLORI . M trem 67 

; 1 0 6 5 PRINT" PUÒ I SCEGLIERE 6 TRA GLI 9 COL 
ORI - w : rem 1 48 

1070 PRINT 1 * UN COLORE PUÒ* ESSERE SCELTO P 
IU**j :rem 252 

1075 PRINT 111 DI UNA VOLTA. QUANDO APPAIONO I 
6 DIAMANTI," trem 212 

1080 PRINT" INSERISCI LE TUE SCELTE CON I 
TASTI DIÉ 2 SPAZI 1 COLORE." trem 175 
1090 PRINT 11 DO PO AVER INSERITO I TUOI 6 CO 
LORI , { 5 SPAZIJVEDRAI IL TUO PUNTEGG 
IO. 11 ; rem 68 

1100 PRINT PRINT" IL PUNTEGGIO E's" 

trem 139 


SUPER COMMODORE® * « 57 



IMO PRINT"+*C0L0RE GIUSTO IN POSTO GIUST 
0 n : reni 162 

1120 PRINT" 0 “COLO RE GIUSTO IN POSTO ERRAT 
0” rem 154 

1130 PR I NT" ì -COLORE ERRATO" : FRI Ni " 11 

:rem 175 

1140 PRINT" LE POSIZIONI DEI SEGNALIMI DEL 
PUNTEGGIO" ; rem 223 

IMS PRINT"NON SI RIFERISCONO AL POSTO DE 
I COLORI ,T :rem 34 

1150 PRINT"HAI 12 ROUND, SE VUOI VZ r ^RE 11 

:rem 23 

1160 PRINT" IL CODICE ED USCIRE DAL GIOCO 
PREMI 9. "SPRINT"" :rem 90 

1170 PRINT"SE HAI INSERITO MENO DI 5 COLO 

RI," :rem 86 

1175 PRINT" PREMI T D BL ' PER CANCELLARE LA 
SCELTA." ;rem 103 

V80 PRINT" {RVS} {BLK} PREMI UN TASTO {OFF}" 


14 60 I F A ( T ) = 4 THENH 1*51 :LO“97 : GOTOl 520 

;rem 209 

1 4 70 IFA (T) * 5THENHI *57 : LO* 1 72 : GOTO 1520 

: rem 3 

14 80 IFA (T) * 6 THENH I * 64 : LO* 1 8 8 : GOTO 152 0 




: rem 

10 

1490 

IFA(T) =7 THENH I =68 : LO* 1 49 

: GOTO! 520 




; rem 

1 3 

1500 

RETURN 

: rem 

166 

1510 

HI x 4 5 : LO* 1 98 

: rem 

1 78 

1 520 

POKEHF , HI : POKELF , LO 

; rem 

4 

1530 

FOKEHP , 0 ; POKELP ,255 

; rem 

185 

1540 

POKEAD , 9 : POKESR , 0 

: r em 

77 

1550 

POKEWF ,65 

: rem 

46 

1 560 

FORSO* 1 TOl 50 : NBXTSG 

; rem 

23 

1 570 

POKEWF f 64 

; rem 

4 7 

1580 

RETURN 

: rem 

174 




:rem 

122 

1190 

GETR$ 1 1 FRS = " " THEN 1 1 90 

: rem 

219 

1 200 

GOTOl 30 

: rem 

1 44 


1210 PRINT" {WHT} {CLR}{ 10 GIU 1 } { 9 DES } 
{RVSH 3 SPAZI HOFF} {RVS} {OFF} 
{RVS} {OFF} {RVS} { 3 SPAZI} {OFF} 
{RVS} {OFF} {RVS} {OFF} {RVS} 

{ 3 SPAZI} {OFF} { RVS } { 3 SPAZI HOFF} 
" ;rem 252 

1220 PRINTSPC ( 9 ) ” { RVS } {OFF} { 3 SPAZI} 

{ RVS } { 3 SPAZI } {OFF} {RVS} {OFF} 
{RVS} {OFF} {RVS} {OFF} [<0>] [RVS} 
{OFF} {RVS} |oFF}[< 2 Q>1 {RVS} 

{OFF} {RVS} {OFF}" tretn 245 

1230 PRINTTAB {9} "{RVS} {OFF}{ 4 SPAZI} 
{RVS} {OFF } { 2 5PAZ I } { RVS } 

{ 2 SPAZI} {OFF}{ 2 SPAZI} {RVS} [<0>3 
{OFF} {RVS} [< 2 0>] {OFF} {RVS} 

{ 2 SPAZI} [<*>] {OFF}" ; rem 210 

1 24 0 F0RD = 1T09 SPRINT" " ; : NEXTO 5 rem 63 
1250 PRINT" {RVS }{ 3 SPAZI} {OFF} 


{ 2 SPAZI} {RVS} {OFF } { 2 SPAZI} {RVS} 
{OFF } { 3 SPAZI } { RVS } {OFF} {RVS} 
{OFF} { RVS } { 3 SPAZI} {OFF} {RVS} 

fnFPl ItJVCl lnt?Pl fi 



{OFF} {RVS} {OFF}" 

: rem 

1 85 

1310 

FORO ■ 1 TO 2 0 0 0 : NEXT 

: rem 

60 

1 320 

RETURN 

: rem 

166 

1330 

IFZ (I) -OTHENHI=34;LO*75: 

GOTOl 520 




: rem 

212 

1340 

IFZ ( I ) * 1 THENH I * 3 8 : LO* 126 

:GOTOl 520 




irem 

7 

1350 

IFZ (I) “2THENHI *43: LO* 1 52 : 

GOTOl 520 




: rem 

21 1 

1360 

IFZ ( I ) *3THENHI ^ 45 : LO* 198 

: GOTOl 520 




: rem 

18 

1 370 

IFZ (I) *4THENHI*51 :LO=97: 

GOTOl 520 




: rem 

223 

1380 

IFZ (I) *5THENHI-57;LO*l 72 

; GOTO 7 520 




; rem 

1 7 

1390 

IFZ (I) =6THENHI*64iLO-l 88 

: GOTOl 520 




: rem 

24 

1400 

I FZ ( I ) = 7THENH 1 = 68: LO* 749 

: GOTOl 520 




: rem 

18 

1470 

RETURN 

irem 

1 66 

1420 

1FA(T) *0THENHI»34:LQ*75: 

GOTO! 520 




: rem 

198 

1430 

IFA (T) = 1 THENHI = 38 : LO* 1 26 

: GOTOl 520 




: rem 

249 

1440 

IFA {T) *2THENHI*43; LO*52 : 

GOTO! 520 




; rem 

197 

1450 

IFA (T) «3THENHI*45:L0*1 98 

:GOTOl 520 




Cypher 

versione per VIC 20 


90 PDKE3 687 9 ,232: GOSUBl 21 0 : PRINT t PRINT" 
{CLR} {BLK} {RVS} { 3 SPAZ I } ISTRUZ IONI 
{ 2 SPAZI} S/N { 4 SPAZI } {OFF}": rem 115 
100 GETA$ : I FA$* " "THENl 00 srem 69 

HO I F AS * " S 11 THÉNGOTO 1 060 : rem 137 

120 I FA$ < > " N 11 THE N 100 ; rem 83 

130 PRINT" (CLR}":DÌMA%t5) ,Z%(5) ,S%(5) ,RC% 
(8),GC%(8) ; rem 38 

1 40 GLOC = 76 88 :CGLOC*38 408:ANS a 7 680:A$*" 11 : 

PGKE36878 ,15 : rem 19 

150 HF^36076:LF-36875 1 rem 133 

1 60 CAN$ = 384Q0:SLQC = 7695:X=Q: FORBITO! 2:F 
ORI* 1 T06 ; rem 1 1 

210 POKEGLOC ,81 ; POKECGLGC,! :GLOC=GLOC+l :C 
GLOC=CGLOC+l :NEXTI : rem 44 

230 GLOC*GLQC+3S:CGLOC«CGLQC+38:NEXTK:GLO 
C = 7 6 8 8 : CG LOG = 38408 ; rem 179 

260 FORL = 0TO 5 : B* INT { RND (1 ) * 8 ) : RC % ( B ) =RC% ( 
B) +1 : A% < Lì l rem 246 
300 P9KEANS, 90 : POKECANS , 2 ; GOSUBl 51 0 : ANS*A 


NS + 7 : CANS=C ANS+ 1 : NEXTL srem 
320 ANS* 7 680 ; CANS* 38 400 irem 
330 FORI^OTOS ;rem 
340 GETZ$ : IFZ$*" "THEN340 Iran 
350 I FASC t Z$ ) = 20THENGOTO1 020 irem 


360 IFASC (2$) <490RASC (Z$) >57THEN340 


31 

36 

11 

131 

151 


: rem 4 


:rem 46 


58 SUPEROOMNOOOFte® S/S5 



370 

Z% (I) =VAL(ZS} :Z% (I) «Z% (lì -1 2 rem 

1 69 

390 

IFZ%UÌ -8THEN800 

: rem 

1 23 

400 

GCI ( Si ( I ) ) =GC% £ SI [ 1 ) ) + 1 

x rem 

95 

410 

POKECGLGC , Z % { I ) ì GOSUBl 3 30 tCGLOC-CGLOC 


+ 1 : NEXT: FORI - 0TO7 

: rem 

1 91 

4 60 

IFGC% £ I ) < 3 RC% ( I ) THENQ-Q+GC1 ( I > 




: rem 

193 

4 70 

I FGC % £ I ) > RC % ( I ) THÉNQ=Q+RC 1(1} 




treni 

146 

480 

NEXTI ; FORK s 0TO5 

i rem 

213 

500 

IFZ1 C K> =Al (K>THBNF 3 F+1 

:rem 

210 

520 

NEXTK; IFQ*0THEN6 20 

; rem 

1 1 1 

530 

IFF-0THEN580 

: rem 

166 

540 

FORK- 0TOF- 1 

; rem 

127 

550 

Sl(K) =91 : NEXTK 

: rem 

25 

570 

IFF-QTHEN620 

: rem 

198 

580 

FORK-FTOQ-1 

: rem 

164 

590 

Si (KJ-87: NEXTK 

: rem 

34 

620 

FORK*OTG5 : POKESLOC , S% ( K ) 

; PQKESLOC+3Q7 


20,0 

: rem 

6 

640 

SLOC=SLOC+l 

; rem 

149 

650 

NEXTK 

ì rem 

37 

660 

SLOC-SLOC+38 

; rem 

209 

670 

CGLOC a CGL0C+38 

: rem 

64 

680 

1 = 0 

;rem 

34 

690 

X 3 X+1 

:rem 

232 

700 

IFF a 6THEN800 

?rem 

166 

710 

IFX-1 2GOTO800 

: rem 

240 

720 

FORK - GT05 

; rem 

16 

730 

SI £K)*0 

: rem 

27 

740 

NEXTK 

ì rem 

37 

750 

Q-O : F* 0 

; rem 

71 

760 

FORK a 0TO7 

: rem 

22 

770 

GCl ( K) »0 

: rem 

86 

780 

NEXTK 

: rem 

41 

790 

GOTO330 

: rem 

111 

eoo 

FORT»0TO5 

: r em 

24 

610 

POKEANS , 91 

;rem 

63 

820 

POKECAN5 t A% (T) 

: rem 

37 

830 

GOSUBl 420 

: rem 

226 

840 

ANS-ANS+1 :CANS=CANS+1 

t rem 

22 

850 

NEXTT 

: rem 

48 

860 

POKEl 98 fO:IFZ%{I) fi 80R CX= 

1 2ANDF< 6) GOTO 


910 

: rem 

106 

380 

PRINT" {CLR} [ 3 GIÙ 1 } H A I 

VINTO IN" 

X " MO 


SSE" : PRINT" £ 8 SPAZI}"? 

; rem 

1 53 

890 

GOTO 930 

: rem 

118 

910 

PRINT" { 3 GIU'HBLKjHAI 

PERSO" 




j rem 

1 37 

930 

PRINT" { 2 GIU 1 HRVS}PREMI{ 2 GIU 1 

} 


{ 4 SIN }UN { 2 GIU'H 3 SINjTASTO" 




: rem 

219 

940 

GETC$ : IFC$“" "THEN940 

; rem 

97 

960 

PRINT" {CLR} [ 2 GIU ' } { BLK } GIOCHI ANCOR 


A?{RVS}S/N{OFF}" 

: rem 

207 

980 

GETAS : I FA$ 3 " " THEN 9 8 0 

; rem 

101 

990 

I FA$ * " S " THENRUN 1 3 0 

ì rem 

34 

100C 

1 I FA$ < > 11 N 11 THEN 9 8 0 

:rem 

145 

loie 

) PR I NT" tC LR ] " : END 

: rem 

55 

1020 FORDE 3 ITOl STEP- 1 : POKECGLOC-PE, 1 2 

; GQS 


UBI 51 0 : NEXTDE 

t rem 

1 92 

1 03C 

) FORRE 3 QT08;GC%£ RE) *0 : NEXTRE : rem 

216 

1 04C 

> CGLOC=CGLOC- tl*l ) 

! rem 

24 4 

1 ose 

> GOTO 3 30 

i rem 

149 

106C 

) PRINT" {CLR}QUESTO S'UN 

GIOCO DI 



{ 2 SPAZI } ABILITA* . 6 COLORI 



[ 4 SFASI )CASUALI SARANNO SCEL-" 




: rem 

202 


1070 PRINT" TI DAL COMPUTER. UN( 3 SPAZI} 
COLORE PUÒ' ESSERE [ 4 SPAZI} SCELTO P 
IU 1 DI UNA" irem 61 



1080 PRINT" VOLTA. USA I TASTI DI COLORE P 
ER EFFETTUARE LE TUE SCELTE . " 

jrem 149 

1090 PRI NT"DQ PO AVER INSERITO I 


{ 2 SPAZljTUOI COLORI VERRÀ' 



{ 4 SPASI }VISUALI ZZATO" 

: rem 

22 

1091 

PRINT" IL PUNTEGGIO." 

: rem 

17 

1092 

PRINT" £ 5 SPAZI} {GIU 1 } [RVS] PREMI 

UN 


TASTO" 

: rem 

107 

1 095 

GETA$ : I FA$ 3 " "THENl 095 

; rem 

193 

1 100 

PRINT" {CLR} {GIU 1 } PUNTEGGI : " 

: rem 

212 

ino 

PRINT" {GIU 1 }+ “COLORE GIUSTO 
{ 9 SPAZI) POSTO GIUSTO" 

: rem 

28 

1 1 20 

PRINT" {GIU 1 }0 “COLORE GIUSTO 
{ 9 SPAZI }?OSTO SBAGLIATO" 

; rem 

221 


1130 PR I NT* \ Gl U 1 }! «COLORE SBAGLIATO" 

t rem 126 

USO FRI NT" {GIU * } HAI 12 TENTATIVI , E SE VU 
01 VEDERE IL" : rem 50 

1160 P R I NT" COD ICE E FINIRE IL; 4 SPAZI } Gl 
OCOt PREMI 1 9 1 * 11 :rei 166 

1170 PRINT" {GIU 1 }SE HAI SCELTO MENO 
{ 4 SPAZI } O I 6 COLORI , PREMI" 

:rem 66 

7175 PRI NT" T DEL * PER CANCELLARE 

{ 2 SPASI} LA SCELTA." :rem 234 

1180 PRINT" { 5 SPASI HrVS} PREMI UN TASTO" 

:rem 88 


1190 GETR3 : 1 FR$ 3 " " THEN 1190 :rem 219 
1200 GOTO! 30 i rem 144 
1210 PRINT" fWHTMCLR} ( 10 GIU'H 7 DESJCY 



PHER" 

: rem 

109 

1310 

FORD - 1 TO200 0 : NEXTD 

; rem 

1 28 

1 320 

RETURN 

: rem 

166 

1 330 

I FS% ( I ) =0THENHI 3 1 30 

;LO“l 30 :GGTOl 520 


: rem 78 

1 340 IFZ% ( I ) *1 THENH 1 = 1 7 5 ; LO 3 175 : GOTO 1 520 

:rem 98 

1 350 I FZ% £ I ) 3 2THENH 1*1 8 3 : LO= 1 83 : GOTO! 520 

i rem 98 

1 360 I FZ% { I ) 3 3 THENH 1 3 1 9 1 :LO=l 91 :GOTOl 520 

: rem 98 

1 370 IFZ%U) “4THENHI-1 95:LO*l 95: GOTO 1 52 0 

;rem 108 

1360 IFZI(I)*5THENHI = 20? : LO 3 201 : GOTO 1 520 

: rem 86 

1 390 I FZ % ( 1 ) 3 6THENHI * 207 : LO 16 2 07 : GQTOl 52 0 

: rem 1 00 

1 400 IFZ% ( 1} *7THENHI-209:LO-209:GOT01 520 

tram 97 

1410 RETURN s rem 166 

1 420 IFA% (T) 3 0THENHI 3 1 30 : LO= 1 30 : GGTGl 520 

:rem 64 

1 430 IFA% ( T) 3 1 THENHI"! 75 i LO 3 1 75 : GQTOl 52 0 

ìrem 34 

1 440 I FA % (T) » 2THENH 1 3 1 8 3 : LO 3 1 8 3 ; GOTO 1 520 

ì r em 3 4 

1450 IFA% (T) -3THENHI 3 1 91 JLQ 3 191 iGOTOÌ 520 

{rem 34 


5m>ERCOMMODOft£“ « S5 59 



1 4 60 IFA% (T> ■ 4 THE WH I>l95sLQ*195: GOTO 1520 

iretn 94 

1 470 I FAI {Tl ■ 5THENH 1*201 JLO-201 :GOTO? 520 

:rem 72 

1480 I FAI (T) * 6 THENH I * 20 7 ; LO «207: GOT0 1520 

:rem 86 

1490 IFA% (T) • 7THENHI »209 : LO*209 : GOTGl 520 


1500 

RETURN 

; rem 

:rem 

92 

166 

1510 

H I “ 4 5 : LO" 198 

: rem 

178 

1520 

POKEHP , HI ! POKELP , LO 

; rem 

4 

1560 

FORSO- 1 TO 1 50 : NEXTSO 

: rem 

23 


1570 POKEHF / 0 ; POKELF , 0 ; rem 61 

1 580 RETURN :rem 1 74 




c 
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di G* KUUk 
trad. e adatt 

di R, Albarelli 
e M. Astiteli 


VI Ci4 è mm coppattv ahaataU 
coap«tltlTo f a baffo corto • eoa 
cirittfrirtlcbt griflckf « fooo- 
ro molto buona. 

Poro km mmm ciroaw non possie- 
da, lopUotatatf aotU ■•■orli 
ROM, roti tini cb« pomrtttio 
ritllfnaxlooi Vocilo o pratico di 
tati poofibiliti» eli* por ooooro 
•fruttato lo tutta la loro poten- 
zia liti* Hcliiodoao tocolcbo di 

SURERGRAPHIC èobdtot di 
favoloso rottiiOt cbo pof ot t o 
di gestirà lo ocbonoo eoo ostro- 
mm faciliti o veloci ti. 


L 'insieme di routine raggruppate In 
questo utilissimo programma sono 
state studiate appositamente per mani- 
polare In vari modi il testo e I caratteri 
presenti sullo schermo, creando effetti 
spedali abbastanza suggestivi e utili, 
per rendere un qualsiasi programma 
più movimentato e divertente da usare. 


Il concotto dolio finestra 
progranmblle 

Il normale schermo visualizzato dal C64 
in modo testo è formato da una griglia 
di 25 “40 caratteri, che nel programma 
devono essere Indicati con numeri da 0 
a 24 per l'altezza e da 0 a 39 per la lun- 
ghezza. 

Spesso si desidera lavorare solo in una 
parte dell'Intero schermo, che parte in 
termini informatici è chiamata comune- 
mente “finestra 1 *. 

Per definire la posizione e le dimensioni 
della finestra, che deve essere program- 
mata per un dato utilizzo, è necessario 
tenere conto di quattro parametri prln- 
dpali: 

1) la colonna che determina la posizione 
del lato sinistro della finestra; 

2} la riga che determina la posizione del 
lato superiore della finestra; 

3} la larghezza della finestra espressa 
In colonne; 

4} l’altezza della finestra espressa in ri- 
ghe. 


In generale, per creare una finestra si 
possono usare le variabili: 

LC„„ colonna che determina la posi- 
zione del lato sinistro della finestra; 

TR riga che determina la posizione 

del lato superiore della finestra; 
W1DTH,. larghezza della finestra 
espressa in colonne; 

DEPTH.. altezza della finestra espressa 
In righe. 

Negli esempi esplicativi che seguiranno 
saranno utilizzate queste variabili nelle 
istruzioni. 

È necessario notare che 1 parametri LC 
e TR vengono utilizzati allo stesso modo 
delle coordinate su un plano cartesia- 
no. 


Perciò, se si volesse, ad esemplo, crea- 
re una finestra grande quanto la scher- 
mata, si devono tettare l parametri in 
questo sistema; 

LC - 0 TR - 0 W1DTH - 40 
DEPTH - 25 


I a ho vi tf* — 11 Htl ll*aa bili 

I comandi disponibili utilizzando SU- 
PERO RAPH1C si possono dividere in 
cinque sezioni principali: 


1) comandi per lo Kroll; 

2} comandi per II re verse: 

3} comandi per 11 colore; 

4) comandi per il “fili’" ; 

5) comandi per disegnare comici 


surfKOwwooow* v m ti 


Prima di utilizzare le routine in linguagr 
glo macchina è necessario definire, per 
un loro utilizzo più veloce e pratico» al- 
cune variabili di questo tipo: 

UP « 12 " 4096 + 256 
DWN - UP + 67 

LFT * UP + 295 

RHT - UP + 369 

RVS - UP + 447 

COL -UP + 511 
F1LL - UP + 547 

BRDR - UP + 611 


Queste variabili conterranno l'Indirizzo 
di partenza della routine di cui recano 
le iniziali o l'abbreviazione secondo que- 
sto criterio: 

UP “ Routine di scroll verso l'alto 

DWN » Routine di scroll verso II bas- 

so 

LFT ■ Routine di scroti verso sini' 
atra 

RHT “ Routine di scroll verso de- 
stra 

RVS » Routine di re verse 

COL « Routine di colorazione 

FILL « Routine di riempimento 

BRDR ■ Routine di formazione corni- 

ci. 


schermato in modo elegante, molto ori- 
ginale e pratico. 


I comandi di 

Esistono due tipi di comandi in questa 
sezione dell'utility SUPERGRAPHIC: 



Effetto: questo modo dei comandi per 
gestire finestre in re verse In verte tutti ì 
caratteri presenti nella finestra, lascian- 
do I colori come erano prima dell'Inver- 
sione, 

2} REVERSE/MODO 2 

Sintassi: SYS RVS. LC, TR, WIDTH, 

DEPTH, CR 

Effetto: questo modo dei comandi per 
gestire finestre in re verse In verte tutti i 
caratteri presenti nella finestra, inseren- 
do il colore definito dalla variabile CR 
In tutta la finestra ed ignorando quello 
che i caratteri possedevano prima (la 
variabile CR può assumere un valore 
da 0 a 15L 

1 comandi di re verse possono servire 
per far lampeggiare tutto ciò che si tro- 
va in una data finestra o per creare 
effetti speciali. 


1 comandi di setoli 

Ci sono quattro diverse routine di scroll 
ognuna delle quali può assumere due 
variazioni per un totale di otto tipi di 
scroll diversi!! 

1} SCROLL SU 

Sintassi: SYS UP. LC» TR, WIDTH, 
DEPTH, W 

2} SCROLL GIÙ 


Sintassi: SYS DWN. 
WIDTH, DEPHT, W 

LC, 

TR. 

3) SCROLL A SINISTRA 



Sintassi: SYS LFT, 
WIDTH, DEPHT, W 

LC, 

TR, 

4) SCROLL A DESTRA 




Sintassi: SYS RHT, LC, TR, W1DHT, 
DEPTH. W 


Il comando di coloraci orna 

Sintassi: SYS COL. LC TR, WIDTH, 
DEPTH, CR 

Effetto: questo comando può cambiare 
il colore di tutti i caratteri presenti in 
una data finestra mediante la variabile 
CR, che contiene il numero corrispon- 
dente al colore che devono assumere 
tali caratteri (la variabile CR può assu- 
mere un valore da 0 a 15). 

Questo comando può servire per far 
leggermente lampeggiare i caratteri In 
una finestra o per attrarre l'attenzione 
su un testo piò Importante degli altri. 

I comandi di rleapiasato o 
“FILL" 

Esistono due tipi di comandi di riempi- 
mento: 


Effetto: (per tutti e quattro i tipi di routi- 
ne) dopo aver definito I quattro parame- 
tri per La grandezza e La posizione delia 
finestra sullo schermo è necessario defi- 
nire la variabile W, chiamata variabile 
di ritorno. 

Se essa vale 0, i caratteri che usciranno 
dalla finestra In uno qualsiasi del lati 
verranno cancellati. 

Se Invece W è diversa da 0, i caratteri 
che usciranno dalla finestra torneranno 
In essa, entrando dalla parte opposta al 
lato dal quale erano usciti, 

[ comandi di scroll possono essere utili 
in diverse circostanze e per diversi sco- 
pi. 

Ad esempio» è possibile creare presen- 
tazioni in movimento o cancellare una 


1) FILL/MODO 1 

Sintassi: SYS F1LL, LC. TR, WIDTH, 
DEPTH, CH 

Effetto: riempie una data finestra con il 
carattere specificato mediante la varia- 
bile CH (la variabile CH può assumere 
un valore da 0 a 255 e corrisponde al 
valore che si utilizza per pokare un ca- 
rattere sullo schermo). 

Questo comando può servire per can- 
cellare una sezione dello schermo (CH 
- 32 [spazio]} o riempire una finestra 
con un motivo decorativo. 

2} FILL/MODO 2 

Sintassi: SYS FILL, LC, TR ( WIDTH, 
DEPTH, CH, CR 

Effetto: riempie una data finestra con il 
carattere specificato mediante la varia- 


bile CH (la variabile CH può assumere 
un valore da 0 a 255 e corrisponde al 
valore che si utilizza per pokare un ca- 
rattere sullo schermo} e lo colora con il 
colore specificato nella variabile CR 
(CR può assumere un valore da 0 a 15) 

I comudl di fonudoae cura lei 

Sintassi l: SYS BRDR, LC, TR, 

WIDTH, DEPTH, CH 
Sintassi 2 SYS BRDR, LC» TR, 

WIDTH, DEPTH, CH, CR 
Effetti: Il primo comando disegna il bor- 
do della finestra» usando un carattere 
determinato mediante la variabile CH 
(CH può assumere un valore da 0 a 
255), 

II secondo comando genera T effetto del 
primo e in più colora il carattere con il 
quale disegna la cornice con un colore 
definito dalla variabile CR (CR può as- 
sumere un valore da 0 a 15). 


H proiruuu dlaottratlvo 

Per avere una dimostrazione delle pos- 
sibilità offerte da questo fantastico pro- 
gramma è stato appositamente creato 
un programma dimostrativo» che per- 
mette di capire ancor meglio come fun- 
zionano le routine di SUPERGRAPHIC 
e poterle poi utilizzare In altri program- 
mi. 


Note per l’ utilizzo 

Quando si utilizzano Le routine che for- 
mano il programma SUPERGRAPHIC 
è necessario accertarsi che prima siano 
state definite le variabili UP, DWN, 
LFT, RHT, RVS, COL, FILL, BRDR, 
perché In caso contrario U computer si 
bloccherebbe molto facilmente. 

Inoltre» se si utilizzano le routine in un 
programma di propria invenzione, è ne- 
cessario accertarsi che non vi siano va- 
riabili uguali nel programma. 

Prima di far girare il programma dimo- 
strativo, o qualsiasi programma che uti- 
lizzi le routine di SUPERGRAPHIC, è 
necessario caricare in memoria le routi- 
ne in L.M.. 



6* SOreftCOHHOOORE# «/SS 



Snp«rghapKkic p«r C64 

0 FORI*494Q8TOS01 21 : RE ADX : PO KE I , X : NEXT 

: rem 159 

1 DATA 3 2 ,226,193,32,241 ,1 83,1 34,2,32,20,1 

94, )65, 251 ,1 66,252,32 : rem 17 

2 DATAI 55, 1 93, 32,205, 1 93 ,166, 254, 202, 48, 2 

1 , 24,165,208,1 05,40,133 : rem 121 

3 DATA21 0,1 33, 21 4, 165, 209, 105, 0,1 33, 21 1,3 

2,119,193,202,16,235,164 itera 1 SI 

4 DATA253, 1 85, 32, 1 92, 1 4 5, 208, 1 85, 72, 192,1 

45,212,1 36,16,243,32,20 : rem 130 

5 DATAI 94, 88, 96, 32, 226, 1 93, 32, 241 , 1 83,1 34 

,2,32,20,194,32,182 ! rem 195 

6 DATAI 94,1 70,165,251 ,32,1 55,193,32,205,1 

93,166,254,202,240,208,56 :rem 235 

7 DATAI 6 5,2 08, 2 3 3,40, 1 33,21 0, 1 33,21 4, 1 65, 

209,233,0,1 33,21 1 ,24,32 : rem 1 00 

8 DATAI 19,1 93,202,16,2 34,4 8,1 84,41 ,3,9,21 

6,133,215,164,253,177 itera 40 

9 DATA 2 1 0,1 45,208,1 77,214, 1 45,21 2, 1 36,16, 

245,165,211,133,209,165,210 itera 64 

1 0 DATA? 33,208,165,21 5, 1 33, 213, 165, 21 4, 13 

3.212.96.72.169.216.133.208 :rem 66 

1 1 DATAI 72, 1 36, 2, 1 36, 1 32, 209, 24, 165, 20 8,1 

05.40.1 33, 20B,1 65, 209, 105 : rem 213 

12 DATA0,1 33,209,202,16,240,24,104,101 ,20 

8,133,208,133,212,165,209 irem 191 

13 DATAI 05, 0,1 33, 209, 41 ,3,9,21 6,1 33,21 3,1 

64.253.96.165.2.208 irem 173 

14 DATA3, 169, 32, 44, 1 77, 208, 153, 32,1 92,1 77 

,212,153,72,192,136,16 irem S9 

1 5 DATA236, 96, 32,241 ,1 83,1 38,41 ,63,1 33,25 

1,32,241,183,138,41,31 :rem 76 

16 DATAI 33,2 52,32,241 , 1 B 3 , 2 0 2 , 1 3 4 , 2 53 , 2 4 , 

165,251 , 101 ,253,201 ,40, 1 76 Itera 254 

17 DATAI 6, 32, 241 , 1 83,202,1 34,254,24,1 65,2 

52.101.254.201.25.176.1 irem 109 

18 DATA96, 76, 72, 178, 120, 162, 30, 181 ,208,72 

,189,0,192,149,206,104 :rem 99 

19 DATAI 57,0, 192, 202, 16, 241 ,96,32,226,193 

,32,241 ,1B3, 134, 2, 32 itera 229 

20 DATA20, 194, 32, 182, 194, 165, 251 ,166,211 , 

32,155,193,160,0,177,208 itera 176 

21 DATAI 33, 21 0,1 77, 21 2, 72, 1 44, 1 3, 200, 177, 

208,72,177,212,136,145,212 trem 6 

2 2 DATAI 04, 1 4 5, 208, 200, 1 96, 2 53, 1 44, 239, 16 

5.2.208.3.169.32.44.165 Itera 130 

23 DATA21 0,145,208, 104,145, 212, 198, 21 1,19 

8,254,16,201 ,32,20,194,88 itera 224 

24 DATA96, 32,226,193,32,241 ,183,134,2,32, 

20. 194. 32. 182. 194. 165 itera 32 

25 DATA251 ,166,21 1 , 32 , 1 SS , 1 93, 1 77 , 208 , 1 33 

,210,177,212,72,164,253,240 irem 70 

26 DATAI 5, 1 36, 1 77, 208, 72, 177, 2» 2, 200, 145, 

212,104,145,208,136,208,241 irera 65 

27 DATAI 65, 2, 208, 3, 169, 32, 44, 1 65, 21 0,1 45, 

208,104,145,212,198,211 irera 124 

28 DATAI 98,254,16,203,4 8,68,166,252,138,2 

4.101.254.133.211.96.32 itera 143 

29 DATA226, 193, 160, 0,1 77, 122, 201 ,44,208,8 

,32,241,183,134,2,169 itera 26 

30 OATA0, 44, 169, 255,1 33,174,32,20,194,32, 

182,194,165,251 #166,21 1 itera 128 

31 DATA32, 155, 193, 177, 208, 73, 128, 145 ,208, 

165,174,208,4,165,2,145 :rero 143 

32 DATA21 2, 1 36, 16,239,198,21 1 ,1 98,254, 1 6, 

226.32.20.194.88.96.32 100 

33 DATA226, 193, 32,241 ,183,134,2,32,20,194 

,32,1 82, 194, 165,251, 166 ;rem 129 



34 DATA211, 32, 155, 193, 165, 2, 145, 21 2, 136,1 

6,251 ,198,21 1 ,198, 254, 16 ;rem 182 

35 OATA236, 48,21 5, 32, 226, 193, 32, 24 1,1 03,1 

34,175,160,0,177,122,201 :rem 172 

36 DATA4 4,20B, 8,32,241 ,183,134,2,169,0,44 

, 1 69,255,1 33,1 74,32 : cero 191 

37 DATA20, 194,32,1 82, 1 94, 1 65,251 66,21 1 , 

32.1 55,1 93,165,17 5, 14 5,208 : rem 37 

38 DATAI 65, 174, 208, 4, 165, 2, 14 5, 21 2,136,16 

,241 ,198,21 ? ,198,254,16 jretn 142 

39 OATA228, 48, 151,32,226, 193,32,241 ,183,1 

34.1 75,1 60,0,177,1 22,201 s rem 1 76 

40 DATA# 4 ,208,8,32,241 , 1 83 , 1 34 # 2 , 1 69 , 0 , 4 4 

,1 69,255,1 33,1 74,32 : rem 186 

41 DATA 20 ,1 94,32,182,194,165,251 ,166,21 1 , 

32.1 55,193,1 65,1 75,1 45,208 : rem 32 

4 2 DATAI 65, 1 74,208,4,1 65,2,1 45,212,1 36,16 

, 241 ,1 98,21 1 ,198,254,240 : rem 1 B4 

4 3 DATA 2 2 8,48,34,165,251 ,166,21 1,32, 155,1 

93,165,175,145,208,165,174 :rem 43 

44 OATA2G8, 4, 165, 2, 145, 21 2,136,48,4,160,0 
,240,237,198,211,198 :reta 236 

4 5 DATA 254,240,1 94 ,1 6,222,32,20,1 94,88,96 

Etera 31 



SUPER COM MQDORt* 6,-ftS - 63 





$ap«rgr«phic p«r C64 
prognaaa dimostrativo 

0 PRINT" {CLR}" ! POKES3280, 1 4 : POKE53281 ,6 

ì rem 94 

10 UP-12*4096+256:DWN*UP+67:LFT=UP+295:RH 
T*UP+369:RVS»UP+447;COL*UP+5l 1 

irera 73 

20 F I LL*UP+ 5 4 7 : 3RDR=UP+6 1 1 ;rem 63 


32 

GOTO 3 5 

; rem 

6 

34 

FORL»1TONDt NEXT: RETURN :rem 

208 

35 

PRINT" {tfHTnCLRH lì 

GIU 1 ] "TAB (13) 

"DIM 


GSTRAZ IONE" 

: rem 

68 

3B 

PRINT" {GIU 1 ] " T AB (13) 

"SUPERGRAPHICJ 

n 



: rem 

203 

39 

ND* 25 

; rem 

162 

40 

FORICI T04 

: rem 

217 

45 

K* I NT ( RND { 1 ) * B ) 

:rem 

245 

50 

FORJ-0TO7 

: rem 

221 

60 

SYS BRDR,J,J,40-2*J, 

25- 2*J , 1 60, J+K 




:rem 

243 

65 

GOSUB 3 4 

: rem 

82 

70 

NEXT 

:rem 

166 

75 

K* I NT ( RND ( 1 ) * 8 ) 

;rem 

248 

80 

FORJ“7TOQSTEF- 1 

;rem 

122 

90 

SYS BRDR,J,J,40-2*J, 

25-2 *J, 160, J+K 




:rem 

246 

95 

GOSUB34 

i rem 

85 

100 

i NEXT 

ì rem 

208 

110 

i NEXT 

i rem 

209 

120 

i ND* 1 500 : GOSUB3 4 

: rem 

7 3 


1 30 PRINT” {CLR} " : T 3 25 : G0SUB1 500:GQSUB34 

: r etri 203 

135 ND-250 :rem 255 

140 POR 1*1 TO 6 i retn 12 

150 SYS COL, 4, 14, 31 , 3 , 1 5 : GOSUB34 ; rem 6 
160 SYS COL, 4, 14,31 ,3,6 :GQSUB34 tzem 215 

170 NEXT :rem 215 

1 $0 ND«1SOO;GOSOB34 srem 79 

190 SYS FILLIO, 17, 40, 8, 160, 2 sram 197 

200 ND* 750 : GOSUB 3 4 : rer i 30 

210 PRINT” { 3 GIU 1 }{RED}{RVS}{ 7 DES}SCRO 
LL SENZA CANCELLAZIONE 11 :rei 152 

220 PR I NTTAB {20} 11 { RVS } {< 13 T>J”:rem 72 
230 GOSUB34 ; rem 124 

240 PRINT 11 {RVS] UTILIZZABILE IN TUTTE E 4 



LE DIREZIONI 1 !" 

;rem 

55 

250 

ND»1 500:GOSUB34 

: r em 

77 

260 

PRINTTAB ( 1 7) ” { RVS) {GIU 1 }SU” 

;rem 

196 

270 

GOSUB34 

: rem 

1 28 

280 

FORI *lT022 

t rem 

63 

290 

SYS UP, 5,5,30, 1 1 ,1 

; r em 

123 

300 

ND*75:GOSU834 

: rem 

239 

no 

NEXT 

; rem 

211 

320 

ND* 7 5 0 : GOSUB 3 4 

; rem 

33 

330 

PRINTTAB (17) "{RVS] [SO } GIU' " 

:rem 

166 

340 

GOSUB34 

: rem 

126 

350 

FOR 1 = 1 TO 2 2 

i rem 

61 

360 

SYS D WN , 5 , 5 , 3 0 , 1 1 ,1 

; rem 

189 

370 

ND - 75 : GOSUB3 4 

: rem 

246 

3B0 

NEXT 

rrem 

218 

390 

ND«750:GOSUB34 

; rem 

40 

400 

PRINTTAB {1 5) " { RVS } { SU } S I N I STRA" 




a rem 

3 

410 

GOSUB34 

: rem 

124 

420 

FORI * 1 TQ4Q 

: rem 

59 

430 

SYS LFT, 0,5,40,1 1 , 1 

: rem 

180 

440 

ND* 7 5 : GOSUB 3 4 

: rem 

244 

4 50 

NEXT 

;rem 

216 

460 

ND"750 : GOSUB 3 4 

;rem 

38 

470 

PRINTTAB (1 5} "{RVS } {SU } DESTRA " 




: rem 

96 



480 

GOSUB34 

: rem 

131 

490 

FORI * 1 T040 

: rem 

66 

500 

SYS RHT, 0,5,40,11,1 

: rem 

186 

510 

ND*75 : GOSUR34 

: rem 

242 

520 

NEXT 

: rem 

214 

530 

ND= 750 : GOSUB 3 4 

:rem 

36 

540 

SYS FI LL ,0,17,40,8,160 

,5 :rem 

ì 99 

550 

ND» 7 50 : GOSUB 3 4 

:rem 

38 

560 

PRINT'M 5 SUHSVS) £grn][des}scroll co 


N CANCELLAZIONE!» 

: rem 

22 

570 

PRINTTAB ! ! 2 ) " { RVS J [ < 13 T>]":rem 

81 

580 

GOSU834 

: rem 

132 

590 

PRINT’M 2 DES) [RVS} £ 4 

SPAZI }UTILE PE 


R CANCELLARE LO SCHERMO!" :rem 

188 

600 

GOSUB34 

: rem 

125 

610 

PRINTTAB {17}" {RVS } COSI 

t n 




: rem 

16! 

620 

GOSUB 34 

: rem 

127 

6 30 

FORI» 1 T04 0 

: rem 

62 

64 0 

SYS LFT ,0,0,40,16,0 

: rem 

1 82 

650 

ND"0 : GOSUB 3 4 

: rem 

187 

6 60 

NEXT 

: rem 

219 

670 

ND*75Q : GOSUB3 4 

: rem 

41 

680 

T*0 : GOSUB 1 500 

:rem 

223 

690 

ND*750 * GOSUB34 

: rem 

43 

700 

PRINTTAB (1 7) ” {RVS H 8 

GIU* } {GRN }0 

COS 


I T "f 

: r em 

255 

710 

GOSUB 3 4 

: rem 

127 

720 

FORI » 1 TO40 

:rem 

62 

730 

SYS DUN ,0,0,40, 1 7,0 

: rem 

1 86 

740 

ND»5Q : GQSUB3 4 

: rem 

240 

750 

NEXT 

: rem 

219 

760 

ND* 7 50; GOSUB 3 4 

: rem 

41 

770 

PRINT” {CLR} " : POKE53280 

, 2 ì P0KE532 9 1 

,15 



; rem 

201 

775 

T-25 

; rem 

155 

780 

PRINTTAB ( 9 } ” {GIU 1 } (BLK } UN TESTO PUÒ 1 


ESSERE” 

: rem 

134 

790 

PRINTTAB ( 1 4 ) " { GIU 1 } VISUALI ZZATO {GIU ' } 


H 

; rem 

21 3 

795 

ND* 75G : GOSUB 3 4 

: rem 

49 

800 

AS* "SOLO IN UN UNICO":' 

GOSUB2000 ; NE 

1-75 


Q:GOSUB34 

; rem 

181 

810 

A$ * " { G I U 1 } COLORE SULLO 

SCHERMO- ":GOSU 


B2000;ND~750 ; GOSUB 34 

: rem 

100 

820 

PRINTTAB ( 3} " { 2 GlU f }l 

COLORI POSSONO 


ESSERE CAMBIATI” 

;rem 

43 

830 

PRINTTAB £1 3) "{GIU 1 ] IN 

SEGUITO* * * •” 




:rem 

120 

840 

ND* 1 500 : GOSUB34 

:rem 

82 

B50 

SYS FILL, 0,17,40,8,160 

,6 : rem 

204 

860 

PRINT” { 3 G I U r } { RVS ] { BLU } { 9 SPAZl]CO 


LORARE UNA FINESTRA- ” 

:rem 

1 52 

870 

PRINT" { 8 DESH rVSH< 

22 T>] " 




:rem 

108 

875 

ND-1 5Q0:GOSUB34 

:rem 

90 

880 

PRINT” { RVS H 4 SPAZI ]CAMBI ANDO IL 

COL 


ORE IN UNA” 

: rem 

213 

890 

PRINT” { G I U 1 } { RVS } FINESTRA S I PUÒ ' 

AT 


TRARRE L'ATTENZIONE" 

;rem 

129 

900 

ND» 3 0 0 0 : GOSUB 3 4 

: rem 

76 


64 SUPERCOMMODÒHf* fi/15 


91 0 

SYS COL, 0,6, 40, 4,2 

i rem 

131 

1 220 

GOSUB34 : SYS UP , 0 , 0 , 40 , 24 , 0 

; rem 

192 

915 

ND-1 500 ; GOSUB34 

: rem 

85 

1225 

GOSUB34 I SYS UP , 0 , 0 , 40 , 24 , 0 

treni 

197 

920 

SYS FILL, 0,20, 40, 5, 160, 6 

i rera 

193 

1230 

PRINTVSTABfl 0) "E* SCELTO CON CRITERI 

925 

NO-1 500;GOSUB34 

: rem 

86 


or* 

trem 

50 

930 

PRINT" { 3 SU } { RVS } { 4 SPAZI} PUD* 

ANCH 

1232 

ND-3000: GOSUB 3 4 : ND= 1 0 

ir ero 

229 


E ESSERE USATO { 8 SPAZI}" 

treni 

255 

1235 

FORI * 1 T025 t GOSUB34 : SYS UP,0 

,0,40 

,24, 

940 

PRINT" {GIU 1 } [RVS} { 5 SPAZI} PER FARLA 


0 : NEXT 

: rem 

33 


LAMPEGGIARE, { 9 SPAZI}" 

itero 

42 

1240 

SYS FILL, 5, 4, 33, 15,160,2 

irero 

243 

945 

ND*1 500:GOSUB34:ND-250 

itero 

248 

1245 

FORI * 1 TG7 : SYS FILL , 5 , 3+2* I , 

33,1, 

160, 

950 

FORI-lTOl 0 

: rem 

64 


1 : NEXT 

: rem 

1 SS 

955 

SYS COL ,0,6,40,4, 1 5: GOSUB34 

tre® 

225 

1250 

SYS FILL, 5,4, 1 5,8,1 60,6 

itero 

202 

960 

SYS COL ,0,6,40,4,2; GOSUB34 

: rem 

169 

1 255 

FORI * 1 T07 : SYS FILL, 4 + 2* 1 , 5 , 

1 ,6,170,6 

970 

NEXT 

trem 

223 


: NEXT 

: rem 

1 48 

975 

ND-1 50ÓIGOSUB34 

itero 

91 

1260 

SYS FILL, 2, 3,1 ,20,160,0 

i rem 

182 

976 

SYS FILL, 0,1 7,40,8,160,6 

srero 

213 

1270 

PRINTVSTAB (13) "DIVERTENTE li 11 


980 

PRINT 1 * { 5 SU} {RVS} {BLU} { 9 

SPAZI }INVE 



; rem 

221 


RTIRE UNA FINESTRA { 7 SPAZI}** 


1499 

GOT01499 

; rem 

231 



Itero 

112 

1 500 

PRINT" { HOME} " : POKE53280 , 1 2 - 

P0KE53281 

990 

PRINT" {RVS} { 9 SPAZI} [< 22 

T> J " 



#15 

: rem 

162 



; reni 

135 

1510 

PRI NTTAB {10) ** { BLK } [ < 20 @>} 

■i 


99 5 

ND-1 500 : G05UB34 

; rem 

93 



srero 

129 

1000 PRINT" {DES} {RVS} INVERTIRE 

I CARATTER 

1520 

PRINTTAB ( 1 0 ) " { RVS } COMANDI 

DI SCROLL 


I IN UNA FINESTRA 11 :retn 56 

1010 PRINT" {GIU 1 } { 3 DBS } E RVS } PUÒ 1 CREARE 
UN ALTO CONTRASTO 1 * trem 7 06 

1020 ND«30OO:GOSUB34 itera 118 

1030 SYS RVS, 3, 11 ,33,5,5 Itero 255 

1 040 ND»1 500 ; GOSUB34 Stero 123 

1 045 SYS FILL, 0,20,40, 5, 1 6Q, 6 :rero 240 

1050 PRINT 1 * { 3 SU} {RVS} { 11 SPAZI} PUÒ 1 AN 
CHE SERVIRE { 10 SPAZI} 11 Stein 24 6 

1060 PRINT 1 * (GIU* } {RVS} { 9 SPAZI} PER FARLA 
LAMPEGGIARE, { 8 SPAZI} 11 irem 34 

1065 ND*1 500 : GOSUB34 irem 130 

1070 FORI- ITO 14 irem 110 


1125 SYS RVS ,0,0,40,25: ND- 1 2 0 -, 0 3 3 * I * I : GO 
SUB34 ; rem 50 

1130 NEXT item 4 

1132 FGRI-lTO20:SYS RVS , 0 , 0 , 40 , 25 : NEXT 

stero 242 

1135 ND-Ì 500 ; GOSUB 3 4 ;rem 12B 

1145 PRINT* 1 { CLR } " : PQKE5 3230,6: PQKE 53281 ,1 
5 itero 250 

1150 V$-" {HOME}{ 22 GIU 1 }" treni 7 5 

1155 PRINTV$TAS{8} "{BLKJRIEMPIRE UNA FINE 
STRA" stero 164 

1160 ND*200:GOSUB34:$YS UP , 0 , 0 , 40 , 24 , 0 

trem 94 

1165 FRINTV$TAB (8) " [< 21 T>]" itero 215 
1170 GOSUB34 : SYS UP , 0 , 0 , 40 , 24 , 0 trem 196 
1175 GOSUB34 : SYS UP , 0 , 0 , 40 , 24 , 0 Itero 201 
1180 PRINTVSTAB (6) "CON UN CARATTERE PARTI 
COLARE 11 Item 199 

1185 GOSUB34 : SYS UP , 0 , 0 , 40 , 24 , 0 treni 202 
1190 GOSUB34 : SYS UP , 0 , 0 , 40 , 24 , 0 Itero 198 
1195 PRINTV$TAB (7) "CREA UN EFFETTO SIKPAT 
ICOl” irem 15 

1200 GOSUB34 : SYS UP , 0, 0 , 40 , 24 , 0 irem 190 
1210 GOSUB34 : SYS UP , 0 , 0 , 40 , 24 , 0 srero 191 
1215 PRI NTV$TAB (13) "SE IL CARATTERE" 

srero 104 


, {OFF} 1 * stero 75 

1530 ND-6Q*T: GOSUB34 I retti 157 

1540 A$* ,f QUESTI COMANDI " : PRINT** ( < 7> ] 

(GIU 1 } " : GOSUB 2 000 : ND*20*Ti GOSUB34 

itero 194 

1550 AS * ** OF F RQ NO PARECCHIE POSSIBILITÀ*'*; 
PRINT" {GRN} {GIU 1 }" : GOSUB2000 : GOSUB34 

trem 143 

1 560 h$ + " PER CREARE 11 1 PRINT" [ < 1 > ] {GIU 1 3 " 
: GOSUB2QOO : ND- 20*T t GOSUB3 4 itero HO 
1 570 A$*"S U P E R{ 3 SPAZILE F F E T T I 
1 ! "SPRINT" {BLUHGIU* } 11 ; GOSUB2QOO i 


ND-20*TsGOSUB34 


treni 


76 


1075 

SYS RVS, 3, 11 ,33,5,5: ND- 20 0 : GOSUB3 4 

1580 

RETURN 

ir ero 

174 



treni 

196 

2000 

PRINTTAB ( (40-LEN{A5) }/2) 

; : rem 

138 

1080 

NEXT 

trem 

8 

2005 

ND-T 

trem 

234 

1085 

ND-1 500 : GOSUB34 

itero 

132 

201 0 

FORI ■ 1 TOLEN { A$ } 

trem 

153 

1090 

SYS FILL, 0,20, 40, 5, 

160,6 irem 

240 

2020 

PR I NTMI D6 (A8, !,!)"{ RVS } 

{OFF} {SIN}**? 

1100 

PRINT" { 3 SU} {RVS} £ 

5 SPAZI }MA , 

... 



ir ero 

151 


{ 27 SPAZI}" 

Stero 

158 

2030 

GOSUB 3 4 

: rem 

172 

ino 

PRINT" {GIU 1 } {RVS} { 

5 SPAZI } PUÒ 1 

ESSE 

2040 

NEXT 

i rem 

5 


RE DIVERTENTE, , - { 9 

SPAZI}"; rem 

29 

2050 

PRINT" " 

: rem 

152 

1115 

ND-1 500: GOSUB34 

: rera 

126 

2060 

RETURN 

: rem 

168 

1120 

FORI-ÌT06Q 

s rem 

107 







StlPERCOHMODORt* t 65 


dì V, Valuti 
trad, ed adatt. 

di Ni CrUtnib Grilli 




Ecco mm gioco itilo H arcad« H li 
col doviti con botto ri contro 
terribili alieni: por C64 o VIC 20 
con ooponoiono di nonorlo do 
alneno 8 Kbyte. È richiesto l'nao 
di no Joystick. 


L t obicttivo dì “Caverne spaziali” 
consiste ne] cercare di evitare al- 
cuni allenì che cercano dì atterrare sulla 
vostra nave spaziale a forma di diaman- 
te. Potete muovere la nave nelle quat- 
tro direzioni, su, giù, a destra e a sini- 
stra, ma non esiste via di fuga dalle 
pericolose caverne: potete solo avanza- 
re ulteriormente nelle loro profondità, 
sparando aglf alieni prima di venirne so- 
praffatti. 

Gli alleni, come se non bastasse, non 
sono stupidi: le creature del pianeta 
Kung sono molto intelligenti e vi rag* 
giungeranno probabilmente più in fretta 
di quanto voi sarete in grado dì fuggire. 
Se vi organizzate in modo tale da scon- 
figgerli e distruggerli In un certo numero 
di caverne successive, otterrete un 
round In bonus, nel quale sarete in con- 
tatto solamente con alieni... sedentari 
che appaiono a caso sullo schermo. 

Un orologio limita l’ammontare di tem- 
po disponibile per catturare questi alie- 
ni e, quando il tempo finisce, avanzate 
ancora nelle caverne ad un livello più 
elevato dì difficoltà nel gioco. 

Dopo ogni gioco ì tre migliori punteggi 
lampeggeranno sullo schermo, Invo- 
gliandovi a superare le vostre prestazio- 
ni. 

Prima ài caricare il programma sul VEC 
20 assicuratevi di aver inserito l'espan- 
sione di memoria da almeno 8 Kbyte e 
digitate le seguenti istruzioni In modo di- 
retto: 

POKE44,28;POKE43, 1 : 

PQKE28*256, 0 : N E W 

premete quindi RETURN e caricate co- 
me al solito II programma. 

Nessuna POKE particolare è Invece ri- 


chiesta dalla versione per C64, Il quale 
utilizza per il joystick fa Porta 2, 
Entrambe le versioni sono simili per 
quanto riguarda la struttura dei gioco: 
il numero di caverne è sempre II doppio 
del livello di gioco, ed I punti guadagnati 
nella cattura degli alleni “stazionari” du- 
rante Il round di bonus sono proporzio- 
nali al tempo segnato dall 'orologio. Inol- 
tre, ogni caverna possiede una piccola 
grotta al centro dello schermo. Nella 
versione per VIC 20 la vostra nave ap- 
pare sempre all 'interno di questa grot- 
ta: non esiste uscita, ma potete aprire 
delie aperture nelle pareti sparando 


con II vostro cannone laser. Le pareti, 
tuttavia, non saranno degli ostacoli per 
gli alleni. 

Nella versione per C64 la vostra nave 
appare in una posizione casuale sullo 
schermo - all'Inizio di ogni caverna — 
a volte all'interno della grotta centrale, 
ed a volte al suo esterno. Se la nave 
appare eliantemo della grotta, dovrete 
fuggirne velocemente, dal momento 
che il vostro laser non funzionerà fino 
a che ne sarete usdtl. 

Per sparare spostate il joystick nella di- 
rezione desiderata e premete II pulsante 
di fuoco. 
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Cavèrne «pillali 

v«niOBi per C 64 


10 

GOSUB1 300 

: rem 

165 

20 

V- 5427 2 : POKEV+24 , 1 5 : POKEV+5 , 

0 : PGKEV+6 , 


240 : POKEV, 1 00 

: rem 

180 

30 

POKE53281 , 0: POKE53280 , 0 

: rem 

ì 84 

40 

PRINT"{CLR){ 8 GIU’}{ 13 DES } { < 1 > ] CAVE 


RNE SPAZIALI " 

: rem 

171 

50 

PRINT" { 3 GIU'H 14 DES} [<7>]HIGH 

SCOR 


ES H 

: rem 

136 

60 

PRINTTAB { 1 7 J " {GIU 1 } {RED} "Hi 

: rem 

109 

70 

PRINTTAB M 7) "{GIU 1 } {PUR}"H2 
PRINTTAB (1 7} " {GIU r } { GRN } " H T 

: rem 

239 

80 

: rem 

715 

90 

PRINT" {YEL}{ 2 GIU 1 1 { 5 DBS } PREMI 

FUOC 


O PER GIOCARE' 1 

: rem 

101 

100 IFFEEK ( 56320 J ANDl 6THEN1 00 

:rem 

144 

110 L-l :S-0:R-0:SH=3:Q“0:W=33 

:rem 

1 76 


120 IFR»L*2THENL“L+1 :R«0:GOSUBl 040 

trem 49 

PRINT" {CLR} { 11 GIU 1 }"TAB(1 6) "{RED}LI 
V* :{WHT}*L : rem 70 

PRINTM 7 GIU 1 }"TAB £ 1 6) 11 {GRNjCAV, : 
{WHT}";R+1 ;rem 254 

FORI -1 TOT 000 ; NEXT :rem 1 7 

160 POKE53281 , 11 ; PRINT" {CLR} h t POKE5328 ì ,0 

:rem 189 

IFS>lOOOOAHDQ=OTHENPRIKT N {HOME} 

{ 15 DESHtfHTlNAVE EXTRA” :SH-SH+1 !Q»1 

:rem 131 

Yl-L+1 :X1-L:Y2-L+1 : X2 = 39-L: X3*3 9-L : Y3 
*22-*L:Y4“22-L:X4»L trem 219 

Al *1 : A2*l r A3* 1 : A4 3 1 : rem 206 

FORI ■ OTO 3 9 : PO KEI+ 1 064 , 37 : POKE 1 + 1 904,3 
7 ; NEXT :rem 54 

FORi-5T034:POKEI+1224,37:PGKEl+1744,3 
7 i NEXT :rem 55 

FORI*l 2T027 : POKEI+1 384 , 37 : POKEI + 1 584, 
37 : NEXT :rem 113 

POKEl 244,32: POKEl 404,32: PO KEl 764,32:P 
OKEl 604 , 32 :rem 116 

FORI*! T02 2: POKEl* 40+ 10 24,37 : POKEl *40+ 
1063,37: NEXT :tem 71 

FORl»5TOl 8: POKEl* 40+ 1029 ,37: POKEl* 40+ 
1 058 , 37 : NEXT :rem 90 

FORI -9TOl 4: POKEl *40+1 036, 37: POKEl* 40+ 
1051 , 37 : NEXT :rem 82 

270 POKEl 509, 32: POKEl 516, 32: POKEl 538,32:P 
OKEl 531 ,32 :rem 126 

260 X-INT(RNDOì * 1 0 ) +1 5 : Y«I NT l RND (0 ) * 6) +8 

;rem 33 

290 PRINT" {HOME} { 40 SPAZI}” trem 127 
POKEl 024+X+40*Y,W:POKE55296+X+40*Y,1 

: rem 7 
;rem 253 


130 


140 


150 


170 


1 80 

190 

200 

210 

220 

230 

240 

250 

260 


300 


310 

320 

330 

340 

350 

360 


IFX*XlANDY»YlTHEN91 0 
IFX-X2ANDY-Y2THEN910 
IFX"X3ANDY*Y3THEN91 0 
IFX*X4ANDY»Y4THEN91 0 
W-W+l : IFW-35TKBNW-33 


treni 
: rem 
:rem 
: rem 


0 

3 

6 

205 


POKEl 024+Xl +40* Yl , tf+2 : POKE552 96+Xl +40 
+yi r 5 : rem 50 

370 POKEl 024+X2 + 40* Y2 , W+2 ; POKE552 96+X2+40 
+Y 2, 5 :rem 55 

380 POKEl 024+X3+40*Y3, W+2 : POKE552 96+X3+4 0 
*y 3 f 5 :rem 60 

390 POKEl 024+X4+40*Y4 ,W+2 : F0KE552 96+X4+40 
*y 4 f 5 :rem 65 

400 PRINT" {HOME}"; :POKE21 1 ,5: FRI NT” PUNTI : 
n ; 5 f : POKE21 1,30: PRINT" NAVI :";SH 

:rem 132 

410 IF(A 1 +A 2 +A 3 +A 4 ) - 0 THEN 850 :rem 253 

420 J-PEEK ( 56320 ) :D“JANI> 1 5 ;B-JANDl 6 

trem 14 


430 

IFD=1 5THEN680 

: rem 

21 8 

440 

I FX> 1 2ANDX< 27 ANDY>9ANDY< 1 4THEN4 60 




:rem 

4 1 

450 

IFB=0THEN540 

: rem 

159 

460 

POKEV024+X+40*Y, 32 

; rem 

182 

470 

XA = 0 ; YA®0 

; rem 

226 

480 

I FD= 1 4 ANDY>L+1 THENYA-- 1 

: rem 

135 

490 

IFO- ! 3 ANDY < 2 2-LTHENYA* 1 

: rem 

141 

500 

IFD* 1 1 ANDX > LTHENXA* - 1 

: r em 

31 

510 

IFD® 7ANDX< 39-LTHENXA* 1 

: rem 

95 

52 0 

IFPEEK t 1 024+(X+XA) + (Y+YA) * 

40) -32THENX 


®X+XA: Y=Y+YA 

: rem 

147 

530 

GO TOSSO 

: rem 

111 

540 

FOKEV+4, 129; FORI*! OOTOl OSTEP- 1 0 : POKEV 


+ 1 , 1:NEXT: POKEV+4, 1 28 

: rem 

57 

5 50 

IFD-1 4THENJ«X:FORI«Y-lTOlSTEP-ì ìGOSUB 


600: IFBTHENNEXT 

: rem 

178 

560 

IFO- 1 3THENJ-X : FORI *Y+1 T022 : GOSUB600 : 1 


FBTHENNEXT 

: rem 

73 

570 

IFD-1 lTHENI*Y:FORJ-X-lTOlSTEP-l ;GOSUB 


600; IFBTHENNEXT 

: rem 

177 

580 

I FO-7THENI -Y : FORJ*X+1 T039 : 

GQSUB6Q0 

1: IF 


BTHENNEXT 

: rem 

38 

590 

GOTO 600 

: rem 

117 

600 

B=- 1 

: rem 

115 

610 

IFJ*Xl ANDI “Yl THENAl -0:Xl*0 

:Yl-0:S- 

‘S+5 


0:B*0 

: rem 

30 

520 

IFJ*X2 ANDI *Y2THENA2*0 ; X2“ 1 

:Y2*Q:S*S+1 


00 : B*0 

: rem 

81 

630 

XFJ-X3ANDI*Y3THENA3=0;X3=2 

: Y3=Q :S® 

S + l 


5 0 : B = 0 

: rem 

93 

640 

IFJ-X4ANDI*Y4THENA4*0:X4*3 

:Y4*0:S*S+2 


00 : B =0 

: rem 

96 

6 50 

IFPEEK (1 024+I*40+J) <>32THENB a 0 




: rem 

155 

660 

POKE55296+I*40+J, 3 i POKEl 024+1 *40+ J 

,39 


:FORK-tTOÌO:NEXT: POKEl 024+1 +40+J , 32 



; rem 

122 

670 

RETURN 

: rem 

125 

680 

IFA1-OTHEN720 

: rem 

212 

690 

POKEl 024+Xl+40*Yl ,32 

: rem 

29 

700 

Xl-Xl + (Xl >X) - (XKX) 

: rem 

28 

710 

Yl*Yl+(Yl >Y) - (YKY) 

: rem 

35 

720 

IFA2-0THEN760 

: rem 

21 2 

730 

POKEl 024+X2+40*Y2, 32 

; rem 

26 

740 

X2 - X2+ (X2>X) - {X2< X) 

: rem 

36 

750 

Y2*Y2+ ( Y2 > Y} - { Y2< Y) 

: rem 

43 

760 

IFA3-0THEN80O 

: rem 

21 2 

770 

POKEl 024+X3+40*Y3 , 32 

: rem 

32 

780 

X3^X3+(X3>XJ * (X3<X) 

: rem 

44 

790 

Y3«Y3+(Y3>Y) - {Y3<Y) 

: rem 

51 

800 

IFA4-0THEN840 

: rem 

212 

810 

POKEl 024+X4+40*Y4 , 32 

; rem 

29 

820 

X4*X4+ ( X4 >X ) - (X4<X) 

: rem 

43 

830 

Y4“Y4+ ( Y4> Y} - { Y 4 < Y ) 

: rem 

50 

84 0 

GOTO300 

: rem 

104 

8 50 

N-N+l SPRINT" {HOME} { 5 DES} 




[ 10 SPAZI} [WHT}CAV- SUCCESSI VA 



{ 11 SPAZI}" 

: rem 

1 35 


860 FQRG*0TQX : POKE552 96+G+40* Y , 6 : POKEl 024 
+G+40*Y , 3 6 : NEXT : rem 82 

870 FORG-X-1TOOSTEP-1 : FOKE5 5296+G+Y* 40 , 1 : 

POKEl 024+G+Y*40 # 33 treni 200 

8 00 POKEl 025+G+Y*40, 32: NEXT : rem 37 

890 PRINT"{CLR}{ 11 GIU 1 } l 1* DES}(CYN}BO 
NUS: [ RED } " ;L* 5G0+R* 50 : S»S+L* 500+R* 50 : 
R-R+l :rem 250 


900 FORI ■ 1 TO 1 5 0 0 : NEXT : GOTOl 20 treni 31 
910 POKEV+1 , 50 : POKBV+4 ,l29:Xl*X-I SX2-X+1 : 

Yl ^Y~ 1 : Y2-Y+1 ; rem 204 

920 FORI * 1 TO20 trem 62 
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timi lhi 


AUMANDtlA 

Uhwli BictoltHl 

Cvh (omo, 13? 


min* r 

Ltaria ' 



CUMQ 

Ufcfìiri# l qh tfu 
nano (irupo, 3 



Ih p l i (f< fOn 

CPHfwK.1! 


rriiM^nl i WTTTtì ' Avtftdn' 
Con* V MwtUo, 31 
CAMAUi Libri 

yjó U. lemuri, 4. 

C1UO ■ (allerta faUte nike 

CVH Dw« degli Abruxii, 34 



GRUPPO 

EDITORIALE 

JACKSON 

Miaro*San FkridsoD4i?ndOiMDdìd 



vietai. 337 


itane Hata 

Via ltorMe,4 
libraria 14* 

(no Garibaldi, 3 

Libraria Or»* Man ùht 

Cai»G.TlrCtwt. K 

Ul n i. tarimi 

vie f. *ta, 33 


VII 14 NT A Lh~tIA J *iO 

Ui nuli Alharil 
C» &or*o4òi 74 



GENOVA 

Ubvbb.il 

VuCeaak 


TÙNOVA %AJ4 rcp7 □ a R, f H A 


Aecw V Venete. 79t 

SAVONA 



Ceree tae, 7lr 


nftQAMC 

librarie Artica • Motftrr» 
(I I, L«r*Bl*|l' 

Viola Pepo O-otb .t 


UbaaliumiMi 

«■MI 

•liso a 

l l ni li •Miotti M V aneti 

vie Tritala, 33 
libraria hktui 

Vìe Tritio 2S/t 

librarla Paventane - Ufi Ioni Amara 

Vm Tette, 1 

librarie Inrit 

Certa Ger (bel*. 39 

aujto Al vizio ."va; 


emulilo BAI 

I a libraria 

Vie UrceK 44 


COMO 

Vie ViHeric terrarata, 36 


LODI }«f> 

Itala Certa 

Cene Villana 11 


MANTOVA 

Itaie «*R| (ta 


IVI IL All COI 

librarie LA TOttat 

vie Dar Coti eriga, 4 


MILANO 

librarie Dal Caevegn* 
Vie t ornature. 33 

Libreria EX L COI 30 

Certa lumU Unrt 

Libraria IUI 09 A 

Via Ir Tftb, J 
I3AOA, 

lev 

Ubnria LA TI AMITI' 
(aita M a ia jb d Ore, ] 

iiuorou 

v™ ArearwN, 16 
Librarie MA (CO tedi» 
Geberto taerafe. ? 


libri li n lta. Cantar 

Carta l uma i Arar, J 3/3 


flAClNjA 

Librarie Dal Tita 
Vltì Vardl. 3 


V A UH 

Libraria -j iiMppi. 

Certa A Mara, 3 



&AHANO GRAPPA { Vt| 

Libraria Irrimbt 
mene Co’ ltaldt. 33 

B1LUINO 

lib r a ri e Haittat 

WaHant am M 

(0(1 A NO 

Librarie CateaM 

Paio Vfrierfo, 41 

Vie tao, 7/t 


LIDO 01 _T£SCLO ; V£| 

Itale Olf itOtatee 

Vie Ita. S7 

MISTI! |V(] 

le librarie Al Vie Itatele 
4 Calala MerimHe 

■ s litv± e. 13 14 

L+tae («Inabl 

»* !rrn 54 

* e DO » a 

L *ar4 iea*4t ama COtTWA 

** tr^a-e 3 

* -a ’sfry S 

’C lEfNCM 

Cena ! b^ra la* I bo a pìe 

Via m *;■* a 

roitcoi.u: ri 

C ana libraria l ei.r 
A (eelpr Itìjr : A Ciac 

Ceoe murf*' ce t . &e"s *C 


Trento 

Librarie Artt|ieflalli 
Vie A Croce 

UMVHWTAUA 
Vie Treret. 3> 

TUE VISO 
c A UOVA 


Vw Cahii i iuul i, iii -a > 3l 

mitiTi 



Librari* Tenaria 

mene terre, 13 


UDINE 

Libraria ta 
A T ip jbi rieK. Tettato A C 

noi» H Sanerai, l« 

Cane, libraria 'tape Amai .' 

« e Mieta, 53 

VINf ZIA 

librari# SOLARIS 

Vie Cenerario. 3333 

VMOMA 

Librerie CeetronAa 

vie IV Nettare, 33 

Itale OA+ttleri i> 

Vie Meiin, 31 



CAMPI :«0’ 

ItaM tata 
nei» Mentri » 


CESENA .'hC-ì 

Librarie baMnl 

VI# VtKorarie 

imiti 

C i a l p i C Inferma I Ieri* 

Vie 1 UriMv 34 
tpealelMri 

VI# del T trxa 

MO0INA 

Libreria Gare 

VT# K.-1# 



ANCONA 

Libraria Can 

Cvh Gè» teatri;. 1 33 

FA JRI ANO [A Mi 

Ubrarf* Iriil» 

Con* Repvbbllc*, 41 

FERMO (API 

«Mirai. *1 libra 

n*»* del Pepate, 2* 

MACERATA 

l*«*p* ri*1 libra 

Cp<» Repubblica, 7 

rtSARQ 

MM Ulto 

Vlo Abbati, 37 

REC AN ATI |MCj 

Librari. riaTtnw^v 

Wo Cokagoi, 3 

S MNtDirrO Dii TiGNf&fÀP, 

Libraria Nuovi Orinanti 

V,tì *1 


ROMA 

Librarie Arafbuia 

V'o:* a* ‘e Mmorare, 93 


rivi Ori» Per**»!, 37? 

■" 

22 


VI* 1 Croce In Gerutehmcn». 99/ b 

l ib ra r l e Caletti * I. Plebe 

Lei ge del CriemM, J 


». 7 feto 

Librari* 0* M irand e 

V*a G, Cerare. 5 le 



CAMPO ISA SSQ 

Librari* Oiuririll* rii l,M- 
Vle Morafgner latebra, 47 

LANCIANO (CHI 

Cartolibrarie Opelta 
VI* O- Sosenh*, 4 

TÈA AMO 

libraria LA SCOLASTICA 
Cena S. Giorgi*. 3? 


A VEJ.MN0 

librati* C.I. Maone 

Vk. Vqpp, 13/19 


Con* V tiramele, I » 

BENEVENTO 

Ce ep e rat to * N 

VI* Copitene*, I A/l A 
Librari* 0* Uh* Cenai 
Piene S. Sofia. 13 

NAPOLI 


Da p * r ra UM tal, 

wa n*ri 17/19 

Librarie A. SakUi^J.' 
VI* Mra timi. 1 1 » 

Librarie ~A. OoU. At.l." 
VI* Pen AJba, 30/3 

Cartolibrari. L'Ale*** rit P 

vwb Atrguiìo, 169/170 

e Commi* riemerta u 


Vie MnecMO^ 21/13 

di Vincerne Morta 
Vn Searterii 1*9 


vi* Ref batter, I? 11 

Libreria Piranri Tirili* uJ. 
PrajjB Corre, 3C 3 1 
PISANI! Ieri afe u.l 
Librari* S*ì*ntrfira fri-tri » 
Corra , 36 a" 


v« 0 Ce«*e, 13 33 

Su pendercela de> Fumerie 
di Siene liitirde 
VI* Menrtwnie, 1 4 

FfNTA-F 15 CIANO ISA» 

Vi altera 


SALERNO 

Librari* Cetra** Uinb 
VI* (lei Menali, 33 
Librari. Paellila Re*# 

Vie rial Prlneiperi, 44/46 


Vie Cete rii tieni &, 1 34 

BARI 

Llknde ‘Ceepeeelkvth 

Libraria Me re Ufi 

Via Cr riami*, 1 3 

VI* Leon* TV, 7 

UC 

librari* Miteni 

Via Caperai, 193 

Vi* G- Ferrea 39/41 

Librarla Latene 

Vie Meiien^T?44 

Vi* Spore™, 1 34 

Librarie ~Felma~ 

POGGIA 

Viole Europa, 1 

Librari* Peneri* 

Libraria DANTI 

VI* Ob*rdan, 1 

nana rial Re di Rama, 44 

LECCE 

Meri» rial Libra rii Moira» C. 

Larga Odgt 

Viole MareaN, ? 

Libraria 1. SUv**b* 

WATER A 

A*»* 1 Savore, 17/39 

librari* etterati 1 

Self bratta M Libra 

Nane v v*n*tq r 4 $/a* 

Vie Tarara di Diedexicw». 33/36 

MOIETTA ;'BAf 

Librari* Tutti Libri 

NOUge* 

Vie Appi* Nuora, 447 

VI* Sdepk* 37 


LOCAI , R CJ 

irta. 

*V 


«a Carducci, 3 

Librari* OH CORSO rii P 

VleTweri, 13 


70/74 


Cane V. Emanerai*, 90 

MOGIO CALAR RIA 


Cvh Garibaldi. 134 
1 Ce Iteri* CowiMti] 


Librari* t,P. fleuevh 
Via L barite, 134 
Librari* S.F. Placavi* 
Ptan* 0*n >*«*, 3 

■ i l — -x- m m ■■ i - 

UDTVrVW ■ rMCUr Va V 


Catania 


Vie Etnea, 10/13 

Librari* CC Ce vallette 

Coffa SitHk., 91 


VI* e***. 390 


libraria II, Placcavi* 
Hans VJ. Olande, 14 

Librari* LI 1 . Rocca vie 
V.o |L 5*tfbM, 37 

aPAPBtC 


libraria PAPHL C 

Vlel* Leile, 63 



Librari* PAPCR C 

Via fefcri, 140/AiC 


9/F 


01ARRÉ [CTI 

Librari* LA UHOftITA rii P 

Cene Iteti*, 131 

LEWTINI Lift* 

Librari* Ant*«* b<**n* 

Vie CeribeUH, I S 


vw* Laata. 40/1 

SIRACUSA 

Librari* rivi Cera* rii 1 . 

Cene Umberto, 1 14 

VITTORIA $Oj 

librari. SAP 

rial 0 * Seta 


via del verdi, 3 ? 

Coiteli brarin 0iuc»pe friitll 

di O. S L Primi 

VrO T. C*n-;3lOf o, 1 4 5 - 1 ù S 

Cartolibrarie S u?»pp* Primi 
dì Primi Antepone 
v^i* S. M*n**, 2$4 

PALERMO 

Librarie CAVOUR 

VTeCorev', 1 16 


CARBONI A «CAI 

Libreria D.E.S.I, 
Vìe Oelmaria 



LUCANO 

Mfttw 

VlaVeg*ni,4 


U librarle indiente hanno partecipato 
alla campagna promozionale por la 
“ Biblioteca dei Jacksonioni", Qualora 
altre librerie, non menzionate, deside- 
rassero aderire a iniziative analoghe sa- 
no pregate di prender contatto con: 

DfSTRfBUZIONE-PÉTRINI EDITORE S.P.À- 
10139 Torino - Cso Trapani, 48 
TeL 01 1-3358641 



GRUPPO 

EDITORIALE 

JACKSON 

Mfono*5ar» RtnCBCoriAxkn-MocHd 


Vio Rose Ili ni, 12-20124 Milano 
Tri. 02 / 6880951-5 linee 


la conosciamo davvero 



930 POKEI 024+Xl +40*Yl , 38 : POKE55296+X 1 +40* 
Yl , 2 srem 233 

940 POKEI 024+X2+4G* Yl , 38 : POKE55296+X2+40* 
Yl f 2 :rem 236 

9 SO POKEI 024+Xl+40*Y2,38: POKE552 96+X 1+40* 
Y2 # 2 srem 237 

960 POKEl Q24+X2+40*Y2,38: PQKE55296+X2 + 4 0* 


Y2 ,2 

s rem 

240 

970 

IFXl > 0THENX 1 *X1 - 1 

s rem 

2 

980 

IFX2<39THENX2-X2+l 

s rem 

62 

990 

IFY1 >0THENY1*Y1-1 

: rem 

7 

1000 

IFY2<22THENY2-Y2+1 

: rem 

89 

1010 

NEXT? POKEV+4, 128 

s rem 

230 

1020 

SH-SH-1 lIFSK-QTHENl 250 

s rem 

92 

1030 

GOTO120 

s rem 

144 

1040 

T* 2Q0+L* 60 : X*20 ; Y* 11 

s rem 

82 

1050 

POKE53281 , 1 1 SPRINT" (CLR)" 

: POKE532 81 , 


0 srem 236 

1060 PRINT" {HOME} { 14 DES } { GRN } ROUND BONU 
S* srem 110 

1070 FORI-1 064TO1 103:POKEI , 37 : POKEI + 21 *40 
, 37 : NEXT srem 141 

1080 FORI ■ 1 064TO1 064+40*21 STEP40: POKEI ,37 
: POKEI+39, 37 s NEXT ìrem 203 

1 090 POKEV+1 , 5:POKEV+4,33:FORl-!OTOlOOSTE 
P2 ; POKEV+1 ,I:NBXT:POKEV+4,32 

s rem 30 

1 100 XI «INTfRNEHOì *40) s rem 183 

1110 Yl* INTERNO (0) *20) +1 : IFPEEK { 1 024+Xl +Y 
1*40)0 3 2THEN 1100 srem 224 


1120 

PO KE 5 5 2 96+ X 1 + Y 1 *40,6;PGKEl 024*Xl 

+Yl* 


40,36: GOTOl 140 

i rem 

76 

11 30 

IFPEEK ( 1 024 +X+Y* 40) *36THEN-S*S+T: 

GOTO 


1100 

i rem 

146 

1140 

POKE552 96+X+Y* 40 , 1 ; POKEI 024+X+Y* 

40, W 



s rem 

58 

1150 

W-W+l ; IFW*35THENW*33 

: r em 

252 

1160 

PRINT" (HOME) (PUR} PUNTI : 

{WHT} n jS; 

s POK 


EZT 1 r 30 : PRINT" (YEL) TEMPO: {WHT) M ; 

T;" 


(SIN) " 

s rem 

132 

1170 

J-PEEK (56320) sD-JANDl 5s 

B*JAND16 




s rem 

65 

1 1 80 

POKEI 024 +X+40*Y, 32 

s rem 

230 

1190 

IFD-1 4ANDY>2THÉNY*Y-1 

s rem 

88 

1200 

IFD-1 3ANDY<2TTHENY-Y+1 

s rem 

124 

1210 

IPD* 1 1 ANDX>1THENX*X-1 

s rem 

74 

1220 

IFO-7ANDX<38THENX-X+l 

: rem 

86 

1230 

T-T-l : I FT*0TH6N RETURN 

: rem 

162 

1240 

GOTOl 1 30 

i rem 

197 

1 250 

IFS>HlTHENH3-H2:H2-Hl :Hl -Sì GOTOl 280 



s r em 

173 

1260 

IPS>H2THENH3*H2:H2-S:G0T01 280 




: rem 

70 

1270 

I FS > H 3THENH 3 ■ S 

i rem 

159 

1280 

PRINT" (CLR) ( 14 GIU* } ( 

1 5 DES) (RED}G 


AME OVER" 

i rem 

66 

1290 

FORI*! TO 1 500 : NEXT: GOTO 30 :rem 

34 

1300 

PRINT" fCLR}{ 11 GIU’H 

9 DESISTO 

HDD 


X FIDANDO I CARATTERI - * . 

" : rem 

T 09 

1310 

POKE563 34 , PEEK ( S6334 ) AND2 54 : POKEI , PE 


EK { 1 ) AND 251 

; rem 

230 

1320 

FORI-0TO51 1 : POKEI 2280+1 

, PEEK (53248+1 


) : NEXT 

: rem 

20 

1330 

POKEI , PEEK (1 }OR4:POKE56334,PEEK<5633 


4 ) ORI 

: rem 

182 

1340 

1*12552 

: r em 

77 

1350 

READ A ? I FA* - 1 THENl 3 70 

i rem 

197 

1360 

POKEI , A; 1*1 + 1 ; GOTOl 350 

; rem 

80 

1370 

POKE53272, ( PEEK ( 5 3 272 ) AND240 ) ORI 2 



s rem 

96 

neo 

RETURN 

; rem 

1 72 

1 390 

DATA 0,8,20,34,73,34,20 

,8 srem 

1 83 


1400 

DATA 

0,0,8,20,42,20,8,0 

: rem 

Si 

141 0 

DATA 

24,60,106,126,102,60 

,24,60 
: rem 

2 1 3 

M20 

DATA 

24,60,86,126,102,60, 

24,102 
: rem 

21 8 

14 30 

DATA 

255,21 9,165,219,219, 

165,219, 
: rem 

255 

246 

1 440 

DATA 

136,33,0,148,1,72,2, 

1 6 ? rem 

23 

1450 

DATA 

0,0,0,24,24,0,0,0 

s rem 

4 

1 460 

DATA 

-1 

: rem 

67 



Caverna spaziali 

versione per VVC 21 

10 GOSUB127Q . srem 171 

20 P0KE36878,15 : rem 51 

30 PO*CE36879,8 : rem 7 

40 PRINT" (CLR}{ 6 GIU 1 } I 4 DES } (WHT}C AVER 
NE SPAZIALI" srem 8 

50 PRINT” { 3 GIUMt 5 DES ]( BLU} HIGH SCORE 
S" : rem 8 

60 PRI NTTAB ( 8 ) "(GIU 1 } ( RED } ” H 1 srem 61 

70 PRI NTTAB (8) "{GIU 1 } ( PUR } " H 2 :rem 191 

80 PRI NTTAB (8) "{GIU 1 } (GRN } 11 H3 srem 67 

90 PRI NT” { YEL} { 2 GIU*H 2 DES } FUOCO PER 

GIOCARE" :rem 145 

100 IFPEEK (371 37) AND32THENÌ 00 srem M7 

110 L-l :S-0:R*0:SH-3 sQ-0ìW* 33 sretn 176 

120 IFR-L*2THENL-L+1 ? R- 0 : GOSUBl 000 

; rem 45 

130 PRINT" fCLRH 11 GIU 1 }”TAB{7> H [REDjLIV 
• !(WHT)"L srem 22 

140 PRINT" { 7 G I U 1 } ” TAB ( 7 ) " {GRN } C AV * S 

(WHT) M ;R+1 srem 206 

150 FORI -iTOl 000: NEXT srern 17 

160 PRINT" {CLR}" srem 251 

170 IF$>lOOOOANDQ-OTHENPRlNT”{HOME) 

{ 6 DES) imr] NAVE EXTRA” :SH»SH+1 iQ*1 

s r em 176 

1 80 Yl-L+1 :Xl «L:Y2*L+1 S X2-21 - L : X3- 21 -L: Y3 
■22-L: Y4*22-L:X4-L srem 201 

190 A)*1:A2*1:a 3*1;A4*1 :rem 206 

200 FORI-0TO21 : POKEl+4 11 8 , 3 7 : POKEI + 384 22 , 
1 : PO KE 1 + 4580, 37: PO KE 1 + 3884,1 : NEXT 

j rem 129 

210 POR I * 5TO 1 6 : POKEI + 4206, 3 7 : POKEI + 3851 Q , 
1 : POKEI + 4492 , 37 ; POKEI+3B796 , 1 : NEXT 

:rem 195 


SUPÉRCOMHODOWE 8 6 M 71 



220 FORI -1T022: POKEI *22+4096, 37; POKEI *22+ 
37888,1 tPOKEX*22+411 7,37 : POKEI * 22+384 
21,1: NEXT : rem 248 

230 FORI ■ 5*101 8 : POKEI *22 + 41 01 , 37 : POKÉI*22 + 
384 0 5,1 : POKEI *22 + 41 1 2, 37 : POKEI *22+384 
16,1 :NEXT itero 230 

240 X-INTCRND(l) * 1 0) +5 t Y- I NT ( END (0 ) *6) +8 

:rem 236 

250 PRINT" {HOME} { 22 SPAZI)"; :rem 182 

260 POKE4 0 9 6 +X+ 2 2 * Y , W : POK E 37888 +X+ 2 0 * Y , T 

: rem 29 

270 I FX-X 1 AND Y- Y 1 TH EN8 6 0 :rem 6 

280 IFX-X2ANDY- Y2THEN86Q : rem 9 

290 IFX-X3ANDY-Y3THEN860 :rem 12 

300 1FX-X4ANDY-Y4THEN86Q : rena 6 

310 W-W+l : IFW-35THENW-33 :rem 201 

320 POKE4Q96+X1 +22*Y1 ,W+2tPOKE378S8+Xl +22 
*Y1 , 5 : rem 65 

330 PGKE4Q96+X2+22*Y2,W+2: POKE3 7 888 +X2+ 2 2 
*Y2,5 trem 70 

340 POKE4Q96+X3+22*Y3,W+2 : POKE37 B88+X3+22 
*Y3 , 5 : rem 75 

350 POKE4Q96+X4+22*Y4 , W+2 ; POKE37 888+X4 + 22 
*Y4,5 : rem 80 

360 PRINT" (HOME H 3 DES } PUNTI"; S; : POKE21 1 
,16* PRINT" NAVI 11 ; SH trem 204 

370 I F ( Al +A2+A3+A4 ) -QTHEN790 ìrem 5 

380 POKE371 54,127:33-- ( (PEEK{371 52) AUDI 2 8 

) -0) :POKE371 54,255:P-PEEK(371 37) 

5 rem 4 2 

390 Sl--( IPAND8)*Q) : S2- U PANDI 6 ) -0) :S0-(( 



PAND4) -0} 

trem 

233 

400 

XA-S2+S 3 : YA-S0+S 1 

: rem 

227 

410 

I FXA-OANDY A-0THEN62O 

: rem 

203 

420 

IF(PAND32) -0THEN480 

: rem 

54 

430 

POKB4096+X+22*Y,32 

; rem 

191 

440 

IFY+YA<lORY+YA>2 1 THENYA-0 

t rem 

72 

4 50 

IFX+XA<TORX+XA>21THENXA-0 

t rem 

63 

460 

IFPEEK (4 096* (X+XA) + 1 Y+YA) * 

22) -32THENX 


-X+X A : Y* Y+YA 

t rem 

162 

470 

GOTO620 

; rem 

108 

480 

FORVJE-2 55T01 2 8STEP- 5 : P0KE3 68 77 ,WE : 

:NEX 


T:POKE3 6877,0 

t rem 

97 


490 I FS QTHÈNJ - X : FOR I » Y- 1 TO 2STEP- 1 :GOSU&54 
OjIFBTHENNEXT : rem 86 

500 IFSlTHENJ-X: FORI-Y+1 T021 (GOSUB540 : IFB 
THENNEXT s rem 228 

510 IFS2THENI -Y: PORJ-X- 1 TOl STEP- 1 2 GOSUB54 
0:1 FBTH ENNEXT : rem 80 

520 I FS 3THEN I - Y : FOR J-X+ 1 T02 Q : GOSU B 5 4 0 : IFB 
THENNEXT trem 231 

530 GOTO620 s rem 105 

540 B»-l trem 118 

550 IFJ-X 1 ANDI -Yl THENAl -0:Xl-0:Yl -0 : S-S+5 
OtB-O trem 33 

560 IFJ-X2AN0I -Y2THENA2-0 : X 2- 1 :Y2-0:S-S+1 
O0:B-O srem 84 

570 IFJ-X3ANDI-Y3THENA3-Q : X3- 2:Y3-0:S-S+1 
50 : B-0 :rem 96 



670 

POKE4096+X2+22»Y2 , 32 

trem 

41 

680 

X2>X2+ <X2>X> - (X2<X) 

trem 

39 

690 

Y2-Y2+(Y2>Y)-<Y2<Y) 

trem 

46 

700 

IFA3-0THEN74Q 

: rem 

209 

710 

POKE4096+X3*22*Y3,32 

srem 

38 

720 

X3“X3+(X3>X)-(X3<X) 

; rem 

38 

730 

Y3-Y3*(Y3>Y)-(Y3<Y) 

: rem 

45 

740 

IFA4-0THEN780 

trem 

218 

750 

POKE4096+X«+22*Y4 , 32 

trem 

44 

760 

X4>X4*(X4»X)-<X4<X) 

: rem 

46 

770 

Y4-Y4+(Y4>Y>-(Y4<Y) 

: rem 

53 

780 

GOTO 2 60 

: rem 

112 

790 

M-N+l t PRINT" {HOME} { 6 SPAZ I H WHT)C AVE 


RNA SEGUENTE"; 

: rem 

147 

800 

FORG«0TOX: POK637888+G*22* Y, 6 

: PQKE4096 


*G+22*Y, 38: NEXT 

ì rem 

95 

810 

FORG*X- 1 TOOSTEP- 1 : POKE37888+G+Y*22 , 1 i 


POKE4096+G+Y* 22 ,33 

s rem 

21 3 

820 

PQKE4097+G+Y* 22 , 32 : NEXT 

t rem 

4 3 

830 

FORI -1 2 8T02 55STEP5 : POK E368 75 

, 1 1 NEXTt P 


OKE36875 , 0 

: rem 

137 

840 

PRINT” (CLRH 11 GIU'H 4 OES } (CYN J BON 


USi { RED } " ; L* 500+R* 50 : S-S+L* 500+R* 

50 : R 


«R*l 

: rem 

211 

850 

PORI *1 TOl 500: NEXT :GOT01 20 

s rem 

35 

860 

X’-X-1 iX2-X*t:Y1»Y-1 :Y2*Y*1 

£ rem 

62 

870 

FORI-1T013 

£ rem 

68 

830 

PO K E4 0 9 6 *X 1 + 2 2 * Yl ,38: POKE3 7888 + X1 +22* 


XI, 2 

: rem 

0 

890 

POKE36877, 128*1*8 

t rem 

124 

900 

POKE4 096+X2 + 22*Yl , 38 : POKE378 0 B+X2 + 22* 


Yl ,2 

£ rem 

251 

91 0 

POKE4096+Xl+22*Y2,38:POKE378B8+Xl+22* 


Y2, 2 

s rem 

252 

920 

POKE4096+X2 + 22*Y2, 38 : POKE378 B8+X2 + 22* 


Y2,2 

: r em 

255 

930 

IFX! >0THENX1 -XI 

: rem 

254 

940 

IFX2<22THENX2-X2+T 

: rem 

50 

950 

IFY1 >0THENY1 «5fl-l 

; rem 

3 

960 

I FY2< 22THENY2-Y2+T 

: rem 

55 

970 

NEXT : PO K E 3 68 77,0 

t rem 

179 

980 

SH-SH^l t 1 FSH- 0THEN1 220 

t rem 

55 

990 

GOTOl 20 

s rem 

110 

1000 T-200+L*6D ; X-20 : Y-l 1 

: rem 

78 


1010 PRINT" {CLR}{ 5 DES }{ GRN } ROUND BONUS" 

trem 228 

1 020 FOR 1-41 1 &T041 39 : POKEI , 37 : POKEI + 2 1 * 2 2 
, 37: NEXT : rem 151 

1030 FORI -41 1 STO 4 1 1 8 + 22*2lSTEP22 t POKEI , 37 


580 IFJ-X4ANDI-Y4THENA4-Q tX4»3:Y4*Q: S-S+2 
00 : B-0 trem 99 

590 I F PEEK (4096 + 1*2 2+ J ) < > 3 2THENB- 0 

trem 170 

600 POKE3 7 888+1*22 +J,3:POKE 409 6+1 *22 +J, 39 
£ FORK- 1 TOl 0 : NEXT: POKE4096 + I *22+J , 32 




: rem 

1 47 

610 

RETURN 

t rem 

119 

620 

I FAI -OTHEN660 

t rem 

209 

630 

PQKE4Q 96+X1 +22* Yl ,32 

t rem 

35 

640 

Xl-Xl+(Xl>X)- (XlCX) 

t rem 

31 

650 

Y1-Y1+(Y1 >Y) - { Yl <¥) 

; rem 

38 

660 

IFA2-OTHEN700 

i rem 

209 


: POKEI + 2! ,37;NEXT trem 195 

1040 PRINT" {HOME} { 2! SPAZI}"; : rem 228 

1050 FORI -1 50TO2 50STEP2 : POKE36875 , I : NEXT: 

PQKE36 8 7 5,0 trem 167 

1060 X1-1NT(RND(0) *22) trem 188 

1 070 Yl-INTtRND(O) *20)+l : IFPEEK C 4096+Xl +Y 
1 *22) O32THEN106G trem 246 

1 080 P0KE37 888+Xl +Y1 *22,6: POKE4096+X1 +Y1 * 
22,36 :GOTOl 1 00 trem 96 

1 090 IFPEEK (4096+X+Y*22)-36THENS«S+T:GOTO 
1060 trem 168 

1 1 00 PQKE378 68+X+Y* 22 , 1 : POKÉ4096+X+Y* 22 ,W 

trem 73 


71 SUPERCOMMODOtf* 6/V 


mo 

W-W+l : IFtf*35THENW*33 

: rem 

248 

112 0 

PRINT" {HOME} {PUR} PUNTI 

: " ;S; :POKE21 1 , 


1 3 : PR I NT" { YEL ) TEMPO" ; T 

; ” {sin} ” 




: rem 

61 

1 1 30 

POKE371 54 , 1 2 7 : S 3 * - ( (PEEK(371 52 ) AND 1 2 


8) -0) ; POKE371 54 , 255:P* 

PBEK(371 37) 




: rem 

84 

1 140 

Si*- { (PAND8) -0) : S 2* ( (PANDI 6) *0) ;SG* ( 


{PANO 4 } =0 ) 

: rem 

1 9 

1 1 50 

POKE4Q96+X + 22*Y f 32 

: rem 

239 

1 1 60 

IFS0-- 1 ANDY>2THENY*Y-1 

: rem 

1 41 

1 1 70 

IFSl * 1 ANDY< 2 1 THENY*Y+ 1 

: rem 

143 

1 1 80 

I F52* - 1 ANDX>1THENX*X-1 

: rem 

141 

1 190 

IFS3" 1 ANDX<2GTHENX*X+1 

: rem 

143 

1200 

T*T-1 : I FT= QTHEN RETURN 

: rem 

1 59 

1210 

GOTO 1090 

: rem 

199 

1220 

I FS > H 1 THENH 3 *H 2 : H2* H 1 : 

H 1 =S : GOTO 12 50 



: rem 

167 

1230 

IFS>H2THENH3*h 2;H2=S ;GOTOl 250 




i rem 

64 

1240 

I FS>H 3THENH 3 *S 

: r em 

156 

1250 

PRINT*' {CLPJ t 1 3 GIU 1 } ( 

6 DES) {REDIGA 


ME OVER" 

: rem 

41 

1260 

FORI * 1 TO 1 500 : NEXT : GOTO 30 :tem 

31 

1270 

PRINT h {CLRH 8 GILJ r 1 { BLK } ATTENDERE P 


RECO * . * M 

: rem 

233 

12 80 

POKE36 879 ,25 

: rem 

1 58 

1290 

FORI = 0TQ 5 1 ì :P0KE51 20 + 1 

, PEEK ( 32768 

+ 1) 


; NEXT 

; rem 

2 25 

1 300 

1*5384 

; rem 

30 

1 310 

READ A I I FA* - 1 THENl 3 30 

: rem 

189 

1320 

POKEI , A : 1*1 + 1 ;GOTOl 31 0 

: rem 

72 

1330 

POKE36869,205 

: rem 

201 

1 340 

RETURN 

:rem 

168 


1 350 

DATA 

0,8,20,34,73,34,20,8 ; rem 

1 79 

1 360 

DATA 

0,0,8,20,42,20,8,0 :rem 

66 

1 370 

DATA 

24 , 60, 1 06, I 26, 1 02,60, 24,60 

t rem 

21 8 

1 380 

DATA 

24,60,36,126,1 02,60,24,102 

: rem 

223 

1390 

DATA 

255,219, 16 5 , 219,219, 165, 219, 

: rem 

255 

251 

14 00 

DATA 

1 36,33,0, : 43 r 1 

1 ,72,2,16: rem 

1 9 

1410 

DATA 

0,0,0,24,24,0, C, 0 : rem 

0 

1420 

DATA- 

1 

: rem 

63 



LIBRERIA JACKSON 



A Milano, 

in via Mascheroni 14. 
La prima software 
libreria italiana 



A Milano, in via Mascheroni 14. 

m 02-437385 


Vieni a trovarci: 
ti aspettiamo. 


Un tempo si andava in libreria per il gusto delia 
scoperta, per il piacere di esser informati suile novità 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica Italiani ed esteri, software, giochi. 

Dove? Alla Libreria JACKSON 

La prima software - libreria Italiana. 


SUPEKOMHODOftE* tW ?Ì 





La nota misteriosa 



di C, Emtmvmm 

trad. ed adatt. 

di N. CHàtalb GrUxl, 8. Alberelli 
e M. Articoli 


UeaaMart 1 Mal dell* aot* *a 
spartiti la chiava di violino * di 
basso è par 1 principianti nn 
conpflto difficoltoso. 

Perché non farai aiutar* dal 
computer? 


L a cosa più Importante da sapere 
quando sì studia o si ha Intenzione 
dì studiare musica è quella dì ricono- 
scere la posizione delle note su uno 
spartito ìn chiave di violino e ìn chiave 
dì basso. 

Il programma qui presentato è stato 
scrìtto appositamente per aiutare IL mu- 
sicista principiante a riconoscere Istan- 
taneamente il nome delle note sullo 
spartito, scritto usando le due chiavi più 
comunemente usate In musica. 

Dopo aver fatto partire questo Ingegno- 
so gioco educativo ve nano no mostrati 
due pentagrammi, con relativa chiave, 
e verrà chiesto al giocatore ìn quale del* 
le due chiavi musicati vuole cimentar- 
si. 

A tale quesito si può rispondere con * b“ 
per la chiave di basso o con V per la 
chiave di violino o di sol. 

Selezionata una delle due chiavi verrà 
mostrata sul pentagramma corrispon- 
dente una nota casuale, della quale bi- 
sognerà fornire al computer il nome in 
notazione anglosassone (seguire Tappo- 
sita tabella) entro 10 secondi. 
L'indicatore del tempo è mostrato nella 
parte alta dello schermo, Insieme al 
punteggio corrente. 

Se il nome fornito dal giocatore è erra- 
to, o Li tempo a disposizione è scaduto, 
Li computer proporrà una nuova nota e 
fornirà altri 10 secondi per trovarne il 
nome e digitarlo sulla tastiera. 

Se, al contrario, il giocatore fornirà la 
risposta esatta, il computer suonerà la 
nota indovinata e sommerà al punteg- 
gio totale un numero dì punti proporzio- 
nale al tempo impiegato per risponde- 
re. 


Dopo aver proposto 20 note 11 compu- 
ter mostrerà 11 miglior punteggio rag- 
giunto fino a quel momento e darà l'op- 
portunità di ritentare l'Impresa. 


Note al programma (versloa* 
par Citi) 

Il programma gira sia su CI 6 che su 
Plus/ 4 e utilizza una piccola subroutine 
in l/m, posta a partire dalla locazione 
819, che serve a rilocare il set di carat- 
teri programmati a partire dalla locazio- 
ne 15360. 

Se si desiderasse analizzare il listato per 
scovare eventuali errori di battitura, è 
necessario, per vederlo normalmente, 
premere contemporaneamente 1 tasti 
RUM -STOP e RESET (quest'ultimo si 


trova sul fianco destro del computer). 
Facendo dò si entrerà nella subroutine 
di sistema MONITOR: per uscirne e 
analizzare II Listato è necessario digitare 
“X" e premere RETURN, 

Dopodiché basterà un semplice LIST, 
e subito dopo un HELP (F7>, per vedere 
In che linea si trova e qual è Terrore di 
battitura che ha bloccato il program* 
ma. 

Per facilitare la digitazione del listato 
può essere utile programmare I tasti di 
funzione mediante l'Istruzione KEY (ve* 
dere Li libretto allegato a) computer per 
eventuali informazioni sul comando). 

Le parole più utili da Inserire nei tasti 
funzione possono essere: 

FI “DATA" 

F3 “POKE" 
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F5 “PRINT" 
F2 “FÒR* 

F4 “THEN* 
F6 “GOSUB" 
F8 “GOTO" 


È consigliabile non riprogrammare il ta- 
sto “F7\ perché contiene la funzione 
“HELP", utile per correggere gli errori 
di battitura. 


Tabelle di coavtr 

•lo** dal 

i 

1 

1 


C - DO 

G - SOL 

D - RE 

A - LA 

E - MI 

B - SI 

F - FA 



La nota statario** 

verslaae par C64 

100 DIM LOtft ( 25) ,HI% ( 25} ! rem 212 

HO PRINT" {SLK} (CLRH 13 GIU 1 } [ 12 DES}AT 

TENDERE* * *" ; rem 229 

120 POKB532B1,! 2:FOKE5320Q, 1 2 srem 78 

130 REM ****RQUTINE DI INI 21 ALI ZZAZ IONE* * 
* * ; r ero 7 8 

140 NOS-"EFGABCDEPGABCDEFGABCDEFGA" 

srero 126 

150 FORT* 1 TO 2 5 : READ LOW% {T) : NEXT: POR T*lT 
Q25 sREADKII (T) sNEXT i rem 235 

1 60 FORT-QTQ63 : READO : POKE7Q4+T, D : NEXT: POK 
E2Q40,1Ì Stero 14 

1 70 F0RT-B3 2T01 020 ; READO : POKET, D : NEXT: POK 
£204 1 , 1 3:POKE2042 , 1 4 Stero 213 

180 POKE2043, 1 5 :rem 35 

190 V* 5 3 2 4 8 : POK EV+ 21,0 -rem 220 

200 P0KEV , 255 S POKEV+ 16,0: POKEV+39 , 0 ; POKE5 
3 2 80, 1 2; POKE532B1 ,12 : rem 51 

210 POKEV+2 , 90 : POKEV+3 , 84 : POKEV+4 #88: POKE 
V+ 5 , 1 2 6 : POKEV+ 2 3 , 1 4 s POK 8V+ 2 9 , T 4 

treni 35 

220 POKEV+6 , 90 : POKEV+7 , 1 63 : POKEV+40 , 0 : POK 
EV+41 , 0:POKEV+42,0 5 rem 247 

230 S- 54272 : FORT-STOS+24 : POKET, 0 : NEXT 

■ rem 71 

240 POKES+24 ,13: POKES+5 , 1 7 : POKES+6 ,243 

e r ero 20 3 

250 PRINT" {CLR } { 10 GIU 1 } { 13 DESILA NOTA 
MISTERIOSA" : F0RT-6T02Q : POKES , LOW% (T) 

;rem HO 

260 POKES+1 ,HI% (T) : POKES+4 ,17: FORTI ■ 1 TOl 5 

0 : NEXT: POKES+4 ,16 stero 32 

2 70 FORT2-1TO40: NEXT: NEXT : rem 109 

280 SPRINT" { 2 GIU 1 H 4 DES} VUOI; 

{ RVS } A (OFF } LTI , { RVS } S [OFF 1 ASS I 0 
{HVSjTlOFFÌUTTO": INPUT * { 4 DES}";CH$ 

treni 247 

290 I FCH$< > M A" ANDCH$< > M B" ANDCH$< >"T"THEN 
PRINT" { 5 SU)" : GOTO 2 60 treni 208 

300 LW«- (CH$ *"B"ORCH$*"T" ) - (CH$*" A" 1*13 

treni 5 

310 TP*- (CHS*" B n 1*13- (CH5 *"A"QRCH8*"T" ) * 2 
5 stero 152 

320 POKE646, 6 SPRINT" {CLR} ( 6 GIU 1 }" 

stero 202 

330 34 * } " i FORT* 1 T05 s PRI NTSPC ( 3 ) LI 

$ : NEXT : rem 110 

340 PRINT" {GIU 1 } n treni 121 

350 FORT* 1 TQ5 : PRI NTSPC ( 3) LIS : NEXT 

stero 124 

360 PRI NT" {HOME} TEMPO s{ 7 DES} PUNTI 

{ 7 DES} SBAGLI" stero 20 

370 FORTR-1TO20 : rem 154 

3 B0 NN*IRT{RND(0) * (TP-LWJ+LW} :IFNN"NO THE 
N380 treni 219 

390 POKES ,LOWl (NN) :POKES+1 ,Hll (NN) 

stero 53 

400 I FNN* 1 ORNN* 250RNN* 1 3THENPOKE7 52,1 27 :P 
OKE 7 54 ,240: GOTO 420 itero 130 

410 POKE752 , T i POKE754 , 0 Stero 36 

420 POKEV+1 , (1 94-4*NN) +B* (NN>1 3) :POKEV+2T 
,15 srero 180 


430 TS* 1 0 t rem 220 

440 FORT*0TO500 : NEXT : TS=TS- 1 : PRINT" { HOME } 
{ 9 DES } " ; TS : GETGS srem 158 

4 50 I PGS < > " " TH ENPG K E 1 934, (ASC [GS) -64) AND2 
55 srero 150 

460 IF{GS<> 1m, ANDG$OMID$ (NO$,NN,1) JORTS-O 
THENWR-WR+1 tPOKEl 98,0 Stero 198 

470 PRINT" [HOME} { 33 DES}";WR srem 32 

4 60 IFGSOMIDS (NOS,NN,1) ANDTSO0THEN44 0 

Stero 48 

48 5 IFTS< >OTHENPOKES+-4 ,17: FORT* 1 TO300 : NEX 
T: POKES+4, 16 jrem 101 

490 SC-SC+TS SPRINT" {HOME} { 20 DES]*;SCf 

treni 70 

500 FORT- OTOl 500: NEXT t reni 31 

510 NO-NN:NEXT treni 133 

520 POKRV+21 ,0: PRINT" [CLR] { Il DES} 

{ 7 G I U f } PUNTEGGIO: " ; SC treni 23 

530 PRINT" { 3 GIUM{ 9 DES} HAI SBAGLIATO" 
;WR; "VOLTA (E) " stero 136 

540 PRINT" { 3 GIU 1 } { 6 DES} VUOI GIOCARE A 

SCORA?" itero 123 

550 GET A$ s I P A$ * " " THEN 5 5 0 stero B7 

560 lFA$<>"S"ANDA$<>"N ,t THEN55Q treni 173 

570 I FA$ * " S" THENRUN srero 136 

580 REM ****DATI NOTE (BYTES BASSI)**** 

srero 115 

590 DATA 71 ,152,71 ,12, 2 3 3, 97, 104, 143,48,1 
43,24,210 srem 153 

600 DATA 195,209,31 ,96, 30,49, 16S, 135, 162, 
62,193,60,99 stero 72 

610 REM * * **DATI NOTE (BYTES ALTI)**** 

itero 37 

620 DATA 5,5,6,7,7,8,9,10,11,12,14,15 

: rem 6 

630 DATA 16,18,21,22,25,28,31,33,37,42,44 
,50,56 tre® 253 

610 REM ** * *DATI PER GLI SPRITE**** 

stero 138 

650 DATA 000,002,000,000,003,000,000,002 

srero 112 

660 DATA 128,000,002,064,000,002,032,000 

stero 136 

670 DATA 002,032,000,002,032,000,002,064 

srero 133 

680 DATA 000,002,000,000,002,000,000,002 

: rem 1 1 4 

690 DATA 000,000,002,000,000,002,000,000 

stero 113 

*700 DATA 122,000,000,254,000,001,254,000 

srero 129 

710 DATA 001,254,000,001,254,000,000,252 

stero 135 

720 DATA 000,000,120,000,000,000,000,000 

stero 106 

730 DATA 0,224,0,0,208,0,0,216,0,0,204,0, 

0 treni 213 

740 DATA 206,0,0,199,0,0,199,0,0,199,0,0, 

206,0 i rem 1 86 

750 DATA 0,204,0,0,216,0,0,240,0,0,224,0, 

1 stem 212 

760 DATA 192,0,3,192,0,6,192,0,12,192,0,2 
4,192 srero 197 


supercokhodqAe* bm ■ 75 



770 

DATA 

0,48 

,192,0 

,96 

,192 

,0,224,192, 

0,25 


5 






: rem 

19 

780 

DATA 

48,1 

11,128 

,97 

,248 

,192 

,195,96 

,96, 


198,! 

96,48 

,195,1 

04, 

48,1 

93 

: rem 

200 

790 

DATA 

2 32, 

48,96, 

248 

,96 


: rem 

233 

800 

DATA 

112, 

96,224 

,56 

,96, 

192, 

28,99,1 

92,7 








:rem 

2 54 


810 DATA 111,0, 1,248,0,0,96, 0,0, 0,0,0, 0,0 
,0,0,0 ;re m T80 

820 DATA 0,0, 0,0, 0,0, 0,0,0, 0,0, 0,0, 0,0,0 

:rem 72 

830 DATA 0,248,0, 3, 6, 0,6, 3, 128, 6, 0,198, 3, 
192 :rem 99 

840 DATA 198,3,192,192,0,0,198,0,1,134,0, 
1 treni 3 

850 DATA 128,0,3,0,0,3,0,0,6,0,0,12,0,0 

:rem 61 

860 DATA 24,0,0,112,0,1,192,0,3,0,0,0,0,0 
,0,0,0 ;rem 178 

870 DATA 0,0, 0,0, 0,0 : rem 181 



La nota ailatatioaa 

vtrt1oB« pmw Vie 20 

10 FOR 1*1 TO 2 1 0 : READ A i X» X+ A : NEXT : I FX < > 2 8 B 6 
0THENFRI NT" ERRORE NEI 1 DATA 1 " : END 

20 POKE56 , 60 : POKE55 , 0 : CLR: VOLB 

30 FORI -81 9T0848 : READ A t POKEl , A: NEXT 

40 DATAI 60, 0,1 85, 0,208, 153, 0,60, 185, 0,209 
,153,0,61 

50 DATAI 85, 0,21 0,1 53,0,62, 185,0,21 1 ,1 53,0 
,63,136,208,229,96 

60 PRINT" {CLR}"CHR$ (142) :COLORO,4,1 :COLOR 
4,4 

70 F $ = "{ 39 C} M 

80 C$ =CHR$ ( 1 7) : PRINT" {HOME } { 9 G I U 1 H WHT } 
C ,f FSFS" t 12 C } LA NOTA MISTERIOSA 
T 1 3 C}"F$F$ 

90 FORI -TtQ 3000: NEXT 

20 3 COLORO , 7 : COLOR4 , 7 : PRINTCHRS ( 1 47) :PRIN 

T"{3LU}{ 10 GIU’ } "TABU 4) "ATTENDERE P 

RECO" ; SYS 8 1 9 

21 0 FORI * 0TO7 : POKEl 5 3 60+ 1 , PEEK ( 1 60 56 + 1 ) ;N 

EXT ; FOR I * 0 TO 7 : RE ADX : POKE1 5576 + 1 ,X:NEX 
T 

220 DATA0, 0,0, 0,0, 60, 66, 6 6, 66, 66, 60, 0,0,0 
,0,255,0,60,66,66 , 66,66,60,255 

230 DATA60, 1 26, 227, 193, 129, 129, 129, 255, 12 
9,^3! ,1 35,142,! 56, 1 84,240,255,224,192 


DATAI 28, 1 2 8, 12 8, 12 8, 1 28 ,2 55, 12 8, 240, 2 

48. 140. 1 34, 1 31 ,1 29,255,129,1 29, 1 29, 1 3 
0,132,136 

DATAI 4 4, 255, 1 2 8, 1 28, 1 28, 1 28,12 8,1 28,0 
,0,0,0,0,32,112,1 12,97,62,1 28,128,64, 
32,16,8,4 

DATA255, 96, 195, 135,1 36,1 36,132,128,25 

5.1 ,7,12,24,48,96,96,255 

DATA0, 0,0,24,24,0,0, 2 55,24 0, 56, 1 2,6,3 

,131 ,195,255,195,1 31 ,3,3 

DATA3, 3, 3, 255, 3, 3, 6, 12, 24, 48, 96, 255, 3 

3.30.0. 0.0.0.0.255.1.2.4.8.8.5.2.255, 

3. 1.0. 0.0 
DATA0, 0,255 

FOR I = QT07 : READX : PO KEl 5584+1 , X: POKEl 55 
92+1 ,PEEK( 161 60+IJ : NEXT 
FORI ■ 1 56QOTOT 56 1 5 ; READX ; POKEl , X : NEXT: 
FORI*! 5624T01 5743 : READX; POKEl , X:N£XT 
FORI =1 5824TO 1 58 31 : READX : POKEl , X : NEXT 
COLORO, 2:COLOR4,S:POKE65298,PEEK (6529 
8) AND251 

PQKE65299 , PEEK (65299) AND3OR60 

DATA?, 118, 169, 262, 345, 383, 453, 51 6, 571 

,596,643 

DATA685, 704, 739, 770, 798, 81 0,834,854,8 
64,881 ,897 

PRINTCHR$(147) : FORI * 3 1 52TC33 51 ! POKEl, 
29: NEXT 

FORI ■ 34 32T036 3 1 * POKEl , 2 9 ; NEXT 
POKE31 55,31 :POKE31 95,33: POKE3235, 34 ;p 
0KE32 75 , 35 : POKE3 31 5,36: POKE3 355 , 3 7 
POKE3 354 ,38: PGKE33 1 4,39: POKE3 274 , 4 0 : P 
OKE3234,41 :PQKE3475,42 
POKE3 51 5,42: POKE3474 , 43 : POKE3 514,44:P 
OKE3554 , 45 : POKE3593 , 46: PO KE 3473, 47 
PRINT" {HOME} { 22 GIU 1 }{ GRN } " TAB ( 7 ) "6 
{ PUR} & { BLK } & { BLU } 6 [BLK } LA NOTA MISTER 
IOSA {BLK } 6 { PUR } 6 (GRN } & {CYN } & { HOME) " 
PRINT" { 16 GIU 1 !" TAB { 1 1 ) " { BLK } SCEGLI 
LA CHIAVE{ GIU 1 1 M 

PRINTTAB ( 1 1 > "{RVS}T{OFF}* VIGLINO 

{ RVS }B {OFF 1 “BASSO" : GOSUB770 

R»0 : D IMP ( 1 8) ;DIMN(1 8) :FQRI-QTOl 8STEP2 

; P { I ) -3079+R: R-R+4 0 : NEXT 

DIMN1 (24) : FORN = 24TQ3STEP- 1 :READN1 (N) 3 

NEXTN 

N ( 0 ) * 6 & : FORH= 1 TOl 8 : N (H) * (N (H- 1 1-1 } + (7 
*- (N(H-l) -65) } : NEXT 

FORI = 376 1 T037 82 ì PO KE 1,32: PO KE 1 + 80,32; 
NEXT 

GOSUB 7 40:C*5: SC = 0:Q=L* 40: FORI = 204 8TO 2 
846: POKEl, 0; NEXT 
FORI -0TO30STEP1 0 

J-INT (RND (X) *1 3) +3: IFJ=OJOR {L«7ANDJ>I 
2) THEN5 1 0 

OJ-J :J1 =J :E=29: El =3Q :E2«27 :E3=28: PRIN 
T" {HOME} "TAB (5) "{ RVS }{ RED } PUNTI {OFF} 
{BLK}"SC 

PRINT"{HOHE}"TAB(26) "{RVS}{PUR) TEMPO 
{OFF} {BLK}"9: IFJ1 =lNT(Jl/2) *2THENPOK 
EP (Jl ) +I+Q,E1 ; GOTO 550 

POKEP ( Jl * 1 ) +I+Q,E2: POKEP ( Jl +1 ) +I+Q,E3 
: POKEP {Jl-1 ) -1 +I+Q,E: POKEP (Jl -1 ) +1+1+ 
Q,B 

IFE1 -290RE1 -32THEN660 

TI $-"000000 11 : POKE23 9 , 0 

GETN3 : 1 FN$ = " " THENT-TI : I FT< 600THENPRIN 

T" {HOME} "TAB (33) 9-2 NT (T/ 60) :GOTO570 

IFN$ = " "THEN6 1 0 

I FASC ( N$ } < 65THENN$ " : GOT06 1 0 
POKE37 59+1 , ASC {N$ ) -64 ; IFASC (N$ ) -N ( Jl + 
Z) THEN71 0 


240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 
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& souha- 


610 FORT-0TO500:NEXTT: IFJl -3THENE»32:E1 -3 
2 : E2* 32 : B3- 29 

620 IFJ1-1 3THENE102;E2-29:E3»32 

630 IFJl-1 40RJ1-1 5THENE-32 : E1 -32 :E2- 32 : E3 
*32 

640 IFJl>3ANDJl<13THENEl=29tE2-29:E3-29 

650 PQKE3759+I,32:GOTO530 

660 NEXTI 

670 C*C- T : IFOQTHEN50Q 

680 IFSOSITHENS I-SC 

690 PRINT" £ HOME j M T AB ( 5 ) 14 {RVS} { RED } PUNTI 
{ OFF } { BLK } ” SC : PR I NTTAB O 6 } " { RVS } [ < 7> J 
REC ÌGFF}{BLK} M SI 

700 PRINT" {HOME} { 19 GIU r } "TAB ( 1 0 ) M {RVS }T 
( OFF } -VIOLI NO { RVS } B f OFF } - BASSO " : GOSU 
B77Q : GOTG4 80 

710 POKE2737+I , 0:SC*SC+ {6G0~T) 

720 IFJl >2ANDJl < 1 6THENSOUND1 ,Nl (JUXl+L) , 
25 

730 GOT0610 

740 F*1 5+L: G-8+L: K- - 1 * G0SUB76O 

7 50 F«8+L:G«1 5+L: K-1 ;GOSUB76Q ; RETURN 


760 FORP- FTOGSTEPK ; SOUND 1 , N 1 ( P } , 2 0 : NEXTP : 
RETURN 

770 PGKE239,0:GETKEYA$: IFA$-"T"THENL-0 : Z- 
0:X1 -Q:GOSUB0OO; RETURN 
7B0 I FA$ - n B w THENL- 7 1 Z-- 2 : XI - 5 1 GOSUB8 0 0 : RE 
TURN 

790 POKE652 98 r 1 96 : PQKE65299 , 208 ; PRINTCHRS 
(147) : END 

800 FORI-3072TO3151 : POKEI ,32:NEXT: RETURN 




Riviste firmate JACKSON 


I punta * imrtwnlo più qu^ifkMle par eW Atpatti 4 profetami dal lofbwn par pMnnil Llrtc rt vW. 


comoulac ormwnnn o fochi t iMwnf 
ittronich#, tri Aliti t all'attero VOm * 


il rumati ihntt: L. UQQ ■ -numero 
AbOonamanto. (tdo L ji.MC 



11 nwmf «Tauro : L 1000 a rumare 

Mnb 

■A 


PC 


pm gN utenti dal 


Bnu mart «Ml noq: L <000 * nummo 
WwriinHi'. foto L HJ8 0 


OOMPUSCUOLA 

La rtvtea <tt Informatica nata didattica PM 11 


u ffDotin ifurti dada tMnuttcì, li 

ii pnyfmwniN In luttìlloro L’Eric* rM«te italiani dedicata n amami 
MS-DOS, Personal Computar I0M * 

B nunvart il'pnlH); L UM ■ nufflUO 


eiektor 


» mjfnin «Ninno : L 1000 ■ nummi 
M^Arwnmto: ìq*q L 4UMO 


I minuta di atettnxttc» venduto Mi m*«ó 
mtilona di «fili * raduto Mi 7 Mogul. Con 
articoli tu : applicazioni, progttteitorii. 


bei 


il remimi aTarno: UOO « nummo 
AMOWmtQ: «OtO L H006 


rrSST Me 
Nudar di io tarara ■ programmi p*r t 


TI fluirmi ninno: L UOO a re 
Wa n mnto: aoto HI -900 




i mondo daii7 noto Mi 
wMM..jMllrBdQL Con tut ttuwilift, 
novità l UHM! dii marcato, Hnttl «padaM. 
10 reumari «Tanno: L UNO # imwq 
A^ mM: «o*o L M4M 


La prima rivisti auropu di piftonaJ 
compatir, «tararti t «castori. Qm ini. 


0 rumiti ninno: L lodo a nunare 
Abòooimanio: tote L «UNO 

Quando llnfonnazlor» 
fa t««t o_ _ 

(Mi |i 

! via Ao a aNai . il - 30134 m 

1 G DniiMip ricavava ORATE un nunare 
I 
I 
I 
I 

I □ Inviatemi G RÀTIS H Catalogo datti 
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impiegata per creare disegni di qualsiasi 
forma. 

Questo libro sviluppa esempi e tecniche 
della programmazione in LOGO, met- 
tendo subito In grado il bambino o 
l'adulto di avere un approccio Immedia- 
to con II computer e di sviluppare le 
proprie doti logiche e razionali. 

Si analizzano le istruzioni di questo lin- 
guaggio* le procedure e le sotto proc e* 
dure e tutte 3e tecniche di programma- 
zione, come i cicli* i test, la ricorsi viti 
e le operazioni sui numeri. Molto spazio 
viene dedicato ai grafici in aita risoluzio- 
ne ed a come ottenere cerchi, ellissi, 

e aratole ed archi. 

'n libro impostato sulla didattica, che 
sarà senz'altro utile a quei genitori o 
insegnanti che desiderano creare un fa- 
cile e simpatico approccio dei bambino 
ai computer. 


LINGUAGGIO MACCHINA DEL 
COMMODORE 64 
di D, Lawrence e M. iagta»d 
Gruppo Editoriale Jackson 

La programmazione In linguaggio mac- 
china affascina sempre più i possessori 
di home computer che hanno già acqui- 
sito una approfondita conoscenza del 
BASIC, 

Uno dei principali “handicap" incontrati 
fino a poco fa da chi volesse acquisire 
Informazioni circa la programmatone 
in linguaggio macchina dei C64 era la 
quasi totale assenza di letteratura in 
materia, volendo prescindere dai testi 
tecnici in lingua Inglese, non certo alla 
portata di tutti. 

Questo libro, traduzione dì un testo mol- 
to diffuso nei paesi anglofoni, offre forse 
il miglior approccio per l’apprendimen- 
to del linguaggio macchina; esso per- 
mette infatti di entrare nei linguaggio 
AS5EMBLY attraverso la programma- 
zione in BASIC. Esaminando I vari “mo- 
duli" di programma BASIC, che vengo- 
no via vìa presentati ed analizzati dal 


libro, sì acquisiscono senza sforzo tutte 
quelle nozioni che normalmente fanno 
sudare - per la loro difficoltà Iniziale di 
comprensione - le classiche sette cami- 
cie,. , Alla fine della lettura del libro d 
sì troverà a disporre di un ottimo pro- 
gramma editor /assembler, che attende- 
rà soltanto di essere sfruttato per i primi 
esperimenti di programmazione “auto- 
noma" in linguaggio macchina, L'dltor/ 
assembler, scritto completamente in 
BASIC, viene “costruito" collegando 
fune con l'altro i vari moduli contenuti 
nei libro ed offre tutti i vantaggi dì pro- 
grammazione in l/m propri delLeditor 
rispetto ad un comune assemblatore/ 
disassemblatore, 


LOGO: FOTfNEA E 
SEMPLICITÀ 
di E* Baldi e M. Divisto 
Grappo Editoriale Jackson 


Siamo In piena era informatica e tutti, 
bene o male, desiderano imparare a 
programmare i calcolatori. Tuttavia, chi 
già non disponga di una certa cultura 
matematica e di una mentalità logica 
incontra una certa difficoltà iniziale neh 
Timparare la programmazione con un 
linguaggio come il BASIC. Esiste invece 
un linguaggio dì programmazione appo- 
sitamente dedicato a chi si avvicina per 
la prima volta ai computer, Il LOGO* Il 
LOGO, largamente Impiegato per svi- 
luppare una mentalità logica nei bambl» 
ni, sfrutta la tecnica del grafici “a tarta- 
ruga": un simbolo - la tartaruga - che 
spostandosi sullo schermo in alta risolu- 
zione lascia una traccia che può essere 
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7 Note Bit 



Il 1905 è Tanno mondiale della musica... 
preparati con 7 note Bit , la nuova, fantastica opera 
che In soli 15 fascicoli quattordici noli (ciascuno 
corredato da una cassetta software per Commodore 64) 
tl insegno veramente b musica. E puoi suonare subito 
Non perdere il primo numero. Pensa, compresa nel 
prezzo c'è anche la stupenda tastiera professionale per 
il tuo Commodore 64. 






....E VINCI 30 STRAORDINARI 
COMMODORE PLUS/4 



Per C64 vendo caiwira con i seguenti 
IO focili; Flautato. Torri (fa Hanoi, De- 
aih. Printer, Lo Scalatore Fette, I Due 
Serpenti, TrencMW. P$k*r -Indiano. Il 
Gioco dri 15. Tombola a tote L 12 000 
più iptw poti ah Tutti i provammi so 
no rtvsirati col Turbo Tape, compre 
so fida cassette. Roberto Caputo Va 
Roma, 17 «1030 Trvtrote (CE) - Tei 
OSI, «110104 

FVi VlC 20 tendo circa 100 programuit 
iri blocco a L SD OGO più L 2000 per 
spese di spedizione. Solo fattati. Fabio 
Ferrari Via Arrid. 5 29100 Piacenza 
Tel. 0623/753283 

Vendo VlC 20 «min uovo più registra- 
tore, S Cartucce, cassette. Affarósimo. 
FabririoCrenca Via Isidoro Croce, 12 
00046 Grattatene la (RM) Tel. 
9469066 

Vendo te traduzione dette iti Dizioni del 
idrovoro *Sdo Flight", “Senukzione 
<1 Voto 4 1 a L 5 000 Anna Buda! 
Locato Log. J92 34100 S. Dorigo 
deli Vane <TSi Tei OSO 8 13 145 

Per VlC 20 vendo super «paraci-* 3 
Ktyrr più libro &■ grafica a L 60 0CO 
Espansione 3 16 Kbyte L HO 000 più 
L- 2-000 per spese c. epe ttnm. Fabio 
Ferrar: Via Araldi. S - 29100 Piacenza 
Tel. 0523 753283 

Per VJC 20 vendo cassette con prò 
grammi fai LM di Program. Plagiarne. 
Load’nHun. Arcade, in totale 9, a L 
SQ ODO Fabio Ferrar. Via Araldi, 5 ■ 
29100 Piacenza Tri. 0623/753283 

Vendo o scambio programmi dì vochi, 
utttrty per CBM 64 Invio fatte program 
mia chi ne te riditeti a. Scrivere o tote 
fonare drite 13 atte II. Retro Ghwln ■ 
Vi* Pavone, 15 *4100 Ferrara Tri. 
0632/21718 

Vendo VlC 20 utalo poco, più cassette 
contenente 75 giochi. ri cui motti faiLM 
a L. 150.000 non trattabili. Telefonare 
ore patti e chiedere di Paolo. Paolo 
Caronti - Via Diri fiottati. 9 • 20141 
Mitene Tri. 8*30958 


Venditi programmi su cassetta per 
VlC 20 ineapanso. Giochi con ottima 
vaftcj.utiiry, prezzi stracciati Chiedo 
e offra te massima serietà- Richiedere 
fasta gratuita Stefano Cestola Via 
fa«wo, 13 20042 Aiuti (MI) 

Vendo CSM m perfetto staio, afanen- 
latore, registratore dedicato, joystick, 
manuale nakarraedue iptencfadi Sbri fui 
CSM 6*. Inoltre più di 40 grachi (Arca 
da, Pi Stop, Krazy Kong. Soccer. 
Scecc hi); più ri 30 riviste e un utSuvno 
apparecchio par utilizzare qualsiasi ti- 
po Ó registratore Tufo a L 680 000 
non trattatoti, Solo tona Tomo e prò 
vinci*. Telefonare ore 1012- Eugenio 
Samomarco Via Gazze ra, 53/B ■ 
10073 Cete (TO) Tri. 011/3097QS2 

Vendo VlC 20 con registratore come 
nuovi, imbattati. Massima serietà- Ge 
t ardo Uso Via Beimi, 1 81042 Calvi 
Ritoria (CE) Tel 0823/87*26 



Ecce donata Vendo, cambra program- 
mi per Commodore 64 (Fole Poti non. 
Inieraational Soccer. Scacchi e tanti 
eira) a L 2.000 fono. Stntrt Lzzatore di 
voce Ssm Ree iter, ir «formatore video 
da 40 a BD colonne- Telefonare o scrive 
re. Alfredo Btnincasa ■ Via Buccini, 4 - 
81100 Caserta Tel 0823/32*778 

IVr CBM 64 diepongo di formidabili 
uttttty come: Clone 2. K P Pirata* Mi 
mie 5, di cofMtort « riparatore di séigo^ 
te traccia* grsnonah vari, ingegneria. 


r e gl ultimi gotta '84 
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Paola Sbandi* Via S. Martino. 264 
06100 Temi Tri 07*4 56870 

C erao fioch- per C6* in cambio é> alrr 
be jee* Pria! 2. Zauton Drias 
Frigger H E R 0 e r&u a tn Davide 
Lopez Nunes Via G Prua, 21 10 ■ 
20146 Miano - Tel 02 486623 

Compro, vendo, cambra circa 150 tra 
giochi e programmi d uiiità su cassette 
per €64. Scrivetemi per ricevere te iste 
oppure mandatemi te vostra. Carmine 
Col laro Vico! Comizio -80041 Bosco- 
reale (HA) Tel 8582159 


Vendo VlC 20. Daiaeiett* C2N. libro 
scoperta del VlC 20T, cartndgr 
'GorT. i lutto e L 250,000 Marco 
D agrari Via Saponsro. 20 20142 Mi 
li no Tri 02/3263925 

Cerca nei programmi gettonali per 
Commodore 64 Per edormaann tele 
fonare a Loria Zucchetti - Corso Mite 
no, 4 250B6 Pon ledlegno (BS) Tri 
O3é*/9i0j« 

Vendo per C64 casseri* con 6 tenteah- 
ci giochi registrati con Turbo Tape, 
compreso netta cassette, a L 30000 
più spese posteli. Baseball. Frogger. 
Congo Bongo, Neptun 7801 . Pac Man, 
Snudi. Scrivete a: Marco Tote nell 
Via Aureli*. 89 58016 Orbetrifo Scafo 
(GR> 

Ho molti programmi, sia gemei che 
u tifar y Cambio: Shrambk, Baseball. 
Basket. Plprifato. Fort Apocdypse. Fo- 
go do* Montter Attack. Popeye. A: 
zec ChaOenge. e tanti alni. Cenerà pro- 
grammi per tea rare. Torce rico. Magxr 
Desk. Tutti su casse: ta. Filippo Mom ■ 
Via Qwe. a . 5 47031 Serti', rie d= Re 
pubbica 6 San Manno Te. 900245 

Fantastico: Per CBM 64 vendo o cam- 
bio i migrar software disporrò 4e sul 
mercato a prezzi s( taccia c issimi. Pro- 
grammi gest io neh, ridettici « games su- 
perbi. Richieder* te liste scrivendo □ 
telefonando a: Alfonso Mansi - Via F. 
Proveniate. 49 BONI Napoli - Tel 
081/7802166 


Vendo cartucce per Atari: Popeye, 
QBeri, Jung* Huni. Super Breakout. 
Pboenx e altre a L 25.000 emàm na. 
Scrtvei* o telefonare a: Flavio Tuberi 
Via S. Battana. 1 GODIO È Pofo (RM) 
560114 


Vendo a prezzi ottimi giochi per CBM 
64. Esempio: Donkey Kong L 7.000, 
Jungle Mure L 7.000. Congo Bongo L 
5. 000. ecc, su cassette, bìvio fasta gra- 
tis. Guido Nocciohni Va P. Nemi. 6 - 
53100 Sten* Tri. 0577/285864 


Vendo per C64 cassetta con i seguenti 
jpodr Calcio, Shuttle, Galaxi. Dig 
Dug, One On One, Atzec. Super Pipe 
fato, Survivor. ratti regni rati con 1 Tur 
bo Tape a L 15 000, oppure distinta 
mente * L 2,000 cadauno Sergo Moli ' 
no Via Annunziata, U7 12064 U 
Morra (CN) ■ Tri 0173/5034 8 

Vendo contrite Atari in ori ime condi- 
nom con 5 cassette (Pac -Man. Dodgi 
em. Ccmbai, Prie* Soccer. Maze Cre- 
ze) a tote L 250.000. Chiamare: Ung 
Cantone Corto Vinone Emanuele. 
41/A 80069 Torre del Greco (NA) 
Tri €81/8817182 

Per VlC 20 venda profanimi bei risero 
coni aeruaeepa natone «prezzi baua 
seni. Tutti npstrafa su cassetta . Inoltre 
vendo VlC 20 con 5 mesi A vita più 
espansione 16 Kbytt, 'Introduzione ri 
BASIC* Voi, 1, joystick. 2 cartucce e 
Unti programmi ri prezzo ci L 
378 000 Carlo Mania Via M driCar 
mine, 57 03023 Ciccano (FR> Tri, 
600363 

Riparo piccali sistemi Commodore 
VlC 20 CBM 64 e foro periferiche. 
Roti Ettore Via Fra Bartolomeo, 4 
20146 Mia no Tri. 02/471521 


Vendo per CM * gechi Arcade su Tur- 
bo Tape a L 30.000 Basebal, Star 
Trek. Hera. Zauion Tutti orinali Ri- 
chieder* bau. Roberto Cosiagfaota 
Via Dardi netti. 17 00195 Roma Tri. 
06G 14909 

Vendo Commodore 64 con drive e 
stampante 801, 1 -000 programmi utilità 
e giochi beliti* rn Prezzo basso. Giu- 
seppe Borracci Va Mameli, 15 33100 
Urine Tri. 0432/291665 

Certo ermo alessandrini possessori di 
C64 per scambio programmi e magari 
per fondare un club frana Alettan 
dna). Claudio Veronese ■ Vie Tpnso. 
75 L5100 Atessandna 

Vendo caesetia con mofo p i ogian sis 
(giocosi) per V1C20aL 30000. Affaro- 
ne, scrivetemi o te le fo natomi, nsponòo 
a tutti fino ad euunmeTUo merce. 
Giarifaic * Maranzana Via A De Ugno. 
8 - 35100 Padova - T*L 049/77694 

Vendo, cambio programmi per €64: 
Mìner. Bgrger Tene. Mr. Robot. Dieci 
pochi L. 20.000. Turbo Tape L LO. 000: 
con 30 giochi Turbo Tape toatte. Per la 
liste completa scrivetemi. Massima se- 
rietà- Giencarb Turco - Vis Ferrovia 
81057 Teano fCEI Tri 0823/875928 


Cvribìo, vendo software per I grande 
VlC 20. con oltre 200 projremmi {gio- 
chi, utfaty. ecc ). Invio Iste gratis Mas- 
sima sertaà Enrico Rizza Via Va sari, 
42 -66011 Bucchiaroco (CH) Tri. 
0871/685319 

Vendo cassetta con 15 giochi fai LM per 
1 VJC 20 mnpenso a L 15 000. Telefo- 
nare lutti i gratm dalle H alle 18J0, 
Eugenio Ingogfo Contrada Marcato - 
91028 Partano* (TP) Tel 0924/88053 

Vendo a prezzo favorevole VlC 20 
nuovo più 3 libri introduzione al BA- 
SIC con due caesetit, "Impariamo a 
programmare in BASIC col VlC e 
CBM“. "AH* scoperta dd VlC più 3 
giochi fai 2 camene, 3 cassette ri ' Cd 
nascere il computer rirettarnente da 
computer". IVr accordi scnvcre a: 
Francesco Florio Via Patezzo, 126 
98019 Torre Faro (MEJ Tri. 
090^393713 

Cambra programmi per CBM 64 (ne ho 
700) Inviare Itile e proposte. Risponda 
a turi L Scrivere ti Fabru» Raucci • Vte 
Terrr* ri Ttmoo. 38 00063 Ovitavec 

chia ' RMj 

Vendo, cambio programrri per CBM 
64 Posseggo olire 500 titoli hra cui te 
utlrm Stime novità del mercato. Venda 
ite su nastra (L 3.000 a pro^amma) 
che >u disco (L 3-000 per programmi 
Unifoad, L. 5000 per quell Mulrifoad) 
Chi è interessalo può telefonar* ed An- 
gelo dalle 1530 alle 1930, tranne uba 
to e domenica, affo 081/927955 

Vendo VlC 20. regtstf ator* più 10 cu- 
utte in LM, 2 libri sut VlC 20. vach fai 
LM e BASIC, joystick: i lutto poco 
usato e regstr Alare ai garanzu s L 
400 000, In regalo fabro con programmi 
BASIC Si prega ri telefonare dopo le 
ore 20 15 Ennco Dal Pezzo Viale 
Einaudi. IVi - 20020 Ar«e (MI) Tri 
02/9382067 

Vendo per VlC 20 programmi m versio- 
ne base, a 8 ■ 16Kbyte. anche tratti dà 
cartridge. Telefonare ore aerati o scri- 
vere per lista Gianni Caudino Via 
Graglti 18 10136 Torma Tri. 

011/352830 

Vendo Ai *ri 2600 più 9 giochi Alari fra 
cui Tank. Space Invadere t D Bruco * 
sole L 180.000 o cambio con 32 Kbyte 
RAM per VlC 20 Vendo CMtttt Alari 
a poco (da L 25.000 a L. 50 000) Pho 
ne*, ecc. Stefano CMfa Via Lorenzo 
Quartieri 56042 Forte dei Marmi (LU) 

Vendo prog ia mmi su nastro. Ne ho 
orca 300 tra cui Br eakdance . H J_R 0. 
Pii Fall 1/2, Beamnder, Jur^e Huni, 
Ma- Pscman, Zauon, Sunvner Ga- 
fnet. Decathlon. Popeye, Caesar, The 
Cat, ecc.). Annuncio sempre vafado. 
Maurizio Borrii Vi* Firenze, 32 - 
81100 Ma poi Tri. 081/281672 

Vendo, compra, cambio programmi 
per C64. Inviate fa vostra faste con 
prezzi a: Giovanni Marino - Via Ragna 
na, 28 57012 Cm&onuio (U) Tei. 
0856/753017 
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input output 


Compro . vendo» cambio 90 chi * pro 
9 *11 airi di atìo yrncit ptt Commodo- 
re 64. Ho ptò <1 100 pocH, ma vorrei 
certi uptcerl- Invirt Le votili late. An- 
nuvolo sempre valido Eno Manca ■ 
Via S. Ctow, 49 68074 Croton* iCZ) 

Vendo, compro, cambo programmi su 
cuuiii per C64 N* possi gap circa 
200, te vendita di t 600 a L 2 000 
l'uno, uilty carrarese Adriano Bochs 
se V»G, Marconi. 6 37060 Belfiore 
dTAtàgr (VR) 

Vendesi per C64 combteteor* i*li torn- 



ea * software. L'interface a va colleglla 
alla presa di un norma!* telefono: d soft 
win, tu nastro o disco, comprende 
ima subrouttec per la combrnsL*ÌDns 
automatica del numero ed un program 
ma di rubrica con stampa tu carta dei 
nominativi Prozio L 55000. Tutto 
compreso, Roberto Aliano VaMi^a 
reme, 3 1009) Alpigiano (T0) Tit. 
01 1/9672206 

Compro, cambra. vendo tolhwt per 
CBM 64 nella tda nona di Catania. 
Fabio B stesisi Va Frate! Bandiera. 
13 - 96100 Catania * Tel. Q9S41S3S3 

Vendo, cambio program m i su cassetta 
per CM (caca 160). Poi* Popi w, Zu 
xon, BC, Fmur, Pogeyt. Decathlon, 
Si mone' BASIC , May Dsrsk, ecc . 1 ulti 
te LM a pnib beasi IL 3 000 5 000 
7.000). Due p re t i ni ni m regalo i chi 
invia le sua lata {per scamtec o acqui 
sto); tcrrvero a: Roberto (anrrotto Via 
Locato, 60 - 60076 Poiruofc (MA) 

Compro, vendo, cambio software per 
VIC 20 teespanso. specisfovnte prò 
grammi utility e pochi. Maunno Ruote 
Vii Grada Detedda 42020 Afe™ 
(RE) Tel. 0522/59604 

Eccezionali Vendo per L 60.000 ima 
cavetti di 10 vìdeogane per CBM 64 
(Fort Apocteypv, Calcio, Juce. Pii 
Stop, Kong. Frogger, AMC, Biliardo, 
Ski. F104) più furbo (uebazzaiore 
che trova, salva e verzica circa 10 volte 
più velocemente i vosi ri programmi. 
Scrivere o lelelonare or* pasti. Alberto 
Btraete Via Alba, 15 12038 Savoia 
no ICN) Tei. 0)72/2906 

Per C64 venda; Football. Rateici. Foie 
F^tetion. Siate tizzi tote, Totocalcio e 
tantissimi altri a sete L 5 000 cadauno 
pii spese. Giovanni Pugliese - Vie A. 
Volta. 93 * 74100 Taranto ■ Tel. 
OW 13769 


Vendo lan tattico Commodore VlC 20 
con o senza regist nitore, espansione 
RAM 34 16 Kbyte, carnet» Turbo 
Tape t anche sfa se cartucce Radar Rai 
Rice, Proteclor, Aggrava*. Raid On 
Fort Knox. Angelo Prestar* Via Aure 
Ha, 198 17023 Certele (SV) Tei 

0162/90346 

Cerco Nr 1 e 3 di *$uperuic H con cas- 
setta programmi per C64. Vendo VlC 
20 più 1 Itero e cave ne programmi a L 
80,000 Corrado Rosati Va A. Spuri 
uccHa, 14 00016 Palombari Sabina 

(KM) Tel. 0774/66437 

Per VlC 20 vendo giochi in cassetta e 
cartndge c d Itero "Giochi podi per i 
VlC 2<T. Invio Isti patte. Scrivere a ; 
Michele Sdori Va Fitatiitte.5 ■ 35100 
Ftew 

Scambio, vendo giochi per VK 20, fó- 
chiedcic I telilo dei giocN. Andra 
Franca villa ■ Va C Battati 1 Strida. 6 
64014 Martetscuro (TE) 


vciiuuiiu w Luni^/i^Niv pi Mp iiiaie 

per CBM 64 < VIC 20 ni dieco e caeeel - 
ta. Esempi: Rote Posinoti, Zbion, Dfg 
Dm e tanti altri a prette itncoati. 
Massima serietà. Marcete Gtekidi 
Va E Fermi Palazzo Marrone 64012 
Angri (SA} 

Cambn. vendo program m i per CBM 
64. ZX Spectrum l6^6Kbytes VJC 20 
Assicuro prezzi converwntisflrni In- 
viare L 300 per i telaio. Àrabe* Vicari 
Via Volt or*, 72 47031 Repubbbea d. 
San Marno Tel. 0641/99)716 


Vendo pcogrvnrna su cassetta per 
Commo d ore 64 * VlC 20 (16 Kbyte) 
per elaborare quataas* sésttma Toto- 
calcio, Enalotto, Totip-, con condro 
namento del numero dei se^ii e nei 
pegni consecutivi a L 50.000 Maurizio 
Caruso Viale Uberi*. 15 95014 Gai 
re (CT> - Tei. 932723 

Vendo per Commodore 64 software a 
L 3 000 al pezza. Massima veneti 
Scrivere o telefonare a: Borghese a Si 
Via Monresanto, 17 - 53036 Pog 
ì (SO Tel, 0577/937336 


Vendo, cambio per Commodor e 64 ot- 
tre 600 p i uj am a ra di ogn genere; ufi 
tey word processor, ba tti mi grechi. 
Andrea Potasi n - Via S ANende - 44100 
Ferrara Tel 53 194 

I " ' 

Vendo oltre 1500 giochi, idlteiitaimc 
novità ancora non presenti in Itala: 
software gestionale, medico, professio- 
nale t moti nume utity . Prezzi t 
■mi. Provare per crede 
di* telrriaoce per cottegara due rogj 
tintori t duplicare cassette protette a 
L 50.0001 Franai Piccuino Viale Leo- 
nardo da Vinci* 146 - 00145 Roma TeL 
06/513215 

Fantasmagorica offerii per VlC 20! 
Vendiamo godi ed utility su cassetta a 

r ute eccezionali (15 a L 8.000 - 20 a 
13500 30 a L 15 000). Inoltro possi 
bifel di scegliere, ha quell del nostra 
repertorio. Spedizioni in tutta Italia. 
Funzionamento della castella gazanti- 
to. Per tnlormazioni scrivere a: Striano 
Br di Via $, Viro. 42 - 38OS0 Gagnola 
(TN) Tel. 0461/960115 

Compro Co m m o dore 64 con rogiti re- 
tore entrambi in ditene condizioni a L 
400.000 trattateli- 1 programmi e i vari 
Iteri i compro a pane- Telefonare ore 
pasti e te serata. Giotto Bollati - Via 
Mettatelo di Loren leggio, 15 - 20094 
Corico (MI) Tel 02/449161 

Vendo, scambio véteogiochi e softwn 
per VSC 20. Speditemi i vostro elenco 
nc (ledendone la Itela. Prezzi stracciati: 


mente inno con la zona di Bari Pa- 
sgutee Angiuà Va {tenie Attutate. 270 
70123 Bari - Tel. 217605 


gk beta, Screen Grafiti. F 
Za x xon, Fikon Pterol. Frogger * Unti 
altri program m per i vostro Commo- 
dore 64. Scrweit o Eekfonai t v Tony 
De Torà - Va Voltura, 27 81056 

Vernano Paianone* ICE) 1 - TeL 
0623/985397 

Per CBM 64 vendo tutti i godè e k 
utfeties esistenti. E* tntttapemabi# aie- 
gara tiancobote da L 460, se vedete 
ricevere I catalogo. Masi 
Luig Bevila Caseia I 
21052 E 


Condro, compro, compro! Mandate 
mi la vostra lista ed 10 vi manderà lt 
mia: cereo saprai ulto casettic utility 
per il mio C64. Spedita rullo a: Saro 
Sefimbene ■ Vii Amendola, 36 98037 
Laudarmi (Mi) ■ TeL 0943/36276 

Vendo VIC 20 più re^lratore C2N. 
joystick. Itero H Itero del Commodore 
VIC 2tr, catlndge "Super Alen“, » 
programmi. D tulio a L 350 000 Marco 
Ghtrard» Va Anconeiia. 30 32032 
Feftre (0L) 

Per CBM 64 CAnb»* vendo oJtie 600 
prograrroni di ti*ti i generi Davide Bo 
k>gnini Va G. Sakerran, 14 61029 
Urbino (PS) - Tel. 0722/38262 

Vendo proemi* te LM d Mad Lai 
ongnak perchè scrino da m*. Inotert 
otite» package par La gestione di archi- 
vi A Usti, te LM, oonotiimecaratteriati- 
dw. Grano tu CBM 64 ed Executive 
64 Andrea ftgor. Va G. Verri 16 
35031 Abano Tarme (PO) Tel. 
049,811447 


Compro projpamtra per CBM 64 Ven- 
do k teguenii cassette per VCS 2600 
Alan a metà prezzo. Pac Man, Spider 
man. Pulsi Otite. Decathlon. Erteuro, 
Dragala r , Temi», Sóccer, Raidert O 
The Lo#t Ark. Donkey Kong. Ke alone 
Kapers. Spact Shuttle. Ghosimar^ 
Spteès Peak CrAticno CravanzoU 
Va Prof. Okva. 16 12011 Brago S Dite 
mano (CN| Tei 0171 769659 

Vendo Inielcviteon più 6 cassette quali 
Poker , Shsrk ark rog Bog. Space Ball 
le. Space Armadi, Triple Action al 
prezzo <5 L 300 000- Darnlo Savoca - 
Va L. Calafatimi, 8 90100 Palermo 
Tel. 485618 

Compro per VIC 20 espansione 16 
Kbytt ad un prezzo molto VAntagteoea 
TskfofAro o scrivere a: Osvaldo Bete 
mo Via Della Croce 75100 Matera 
Tei 0835/215430 


Vendo o cambio pochi « \ 
ddattict per VKT 20. Per avere b mia 
lista minare L. 450 te (rane oboli a: Ere 
■cion ss Oscar Va Veneto, 24 20031 
Cesano Moderno (MI) 


Vendo 1 

grommi per CBM 64: picchi ed uttety 
tra cui: Decathlon, Bastai Bai NBA, 
Tafe. MUctemaà, progr arrvr» mgagris 1 ti 
ecc. ftr eventuale cambo teviate la 
vostra bla. Renalo Pirtrontio Vi* Lu- 
cerà, (19 71100 Fogga Tel. 

0681/43373 

Vendo giochi per CBM 64 »u dace e 
rieletta. Scrivere a: Commodore 
Computer Club Vie Dette Atezzé, 40 
00172 Roma 

Vendo cèca LODO programmi per 
Commodore 64 dai videogame* ecce- 
zionali e ul ity con istruzioni . Scrivi su 
bilo o telefona a. Fausto tori - Viale De 
Gaiptn, 49 38023 Oes (TN) ■ Tel 
0463/21660 

Vendo programmi buttatemi (giochi «d 
uhln y) * prezzi oltirru. Dapongod ' 
a pb. Fole Posi 
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Canteri, vendo, compro programmi 
per VC 20 verdone base. Cereo 
espansione 3 Kbyte RAM, Mi tiare 
sano soprattutto 1 vèkogiochi, Gtufca 
no Mertei VaW Bovio, 131 - 64100 
Teramo (TEI Tel 53088 

Vendo ottimo cono di BASIC 'Acca' 
derni* a L 250000 rraiiaUL Regalo 
aTacquirente i Itero “Ala scoperta del 
VIC*. G. Battuta Cattili - VaSPooIo. 
3 09047 SetagiA (CA) TeL 

070/842795 

Vendo guatassi programma per C64. 
Giochi in LM e BASIC utiity didatti 
d. Posseggo più di 500 programmi in 
cassetta. Telefonare per inforrnazioni, 
scrivere per latteo. O^w gioca L 
3-000. Francesco Cosianitei ■ Vis Za- 
deu 20 250(5 Deserizano drl Garda 
Tel, 030/9142101 

Vendo programmi di varo genero (più , 
d) 250), molli dei quali novità (es. Sum- 
m*r Gamet). Se wero o telefonare ore 
pasti. Massima serietà- Carmine Pe- 
retta VAT.Mommsen^^lOOBene- 
vento Tel. 0624/48066 

Vendo programmi su cassetta per VIC 
20 inespanso in LM; Scramble, Labirte 
lo 30, 7 * 1/2, Frogger. Flipper, Dare 
key Kong v molli altri, il turo a L 
15.000. Per intormaziDni se nvero a: Fa- 
brizio G Annotti Vìa Giovanni XXH. 
16 «8100 Catanzaro Tel. 0961/29758 

Per CBM 64 vendo, cambio progranwra 
di qualsiasi genere, sa su tttaco che su 
nastro. Notevole quantità di software. 
Annuncio sempre 1 sten Dno Maloc- 
chi Va Marconi, 302 65100 Pescara 
Tel. 065/66352 

□ programmi p 
bo Tape Alcun* n e neP»- Zazion. Ptt 
Stop, Stirate* BASIC: nchtedere tata- 
Lm» Betttei Va Vene». 121 30039 
Sera (VE) 




Per la sete di soft 



Il nuovo Lemon II è ancora più potante: nuova soluzioni tecniche a II drive da 10QK incorporato consentono a questa macchina 

prestazioni eccezionali. E possibile infatti utilizzare tutti I migliori 
programmi professionali: package di gestione, data base, foglio elettronico, word processing, grafica, archiviazione... 
Lemon 11 è compatibile, ha un prezzo accessibile, garanzia e rete di assistenza tecnica. 

È l'occasione per avere subito un vero computer professionale. 



Organizzazione di vendita: 
Torino 011.337744 
Milano 02.4232437 
Bologna 051.223714 
Firenze 066372281 
Roma 0634203055423716 
Caserta 0623.460460 
Catania 066.416660 


LIMONI! 

It grande compatibile 




SINCLAIR QL: 

AL VERTICE DELLA NUOVA GENERAZIONE 


Sinclair QL rivoluziona il mondo dei computer, perche 
combina le dimensioni di un ho me con la potenza e le 
capacita di un mini, 

QL e ( unico computer, nella sua fascia, ad impiegare 
il microprocessore a 32 bit, quando gli altri si 
fermano a 8 oppure 1 6 
La sua portentosa memoria e di 128 KRÀM 
espandibile a 640 
i quattro programmi applicativi, 
già incorporati. 

sono immediatamente utilizzabili 
e superano, in qualità, il software 
dei microcomputer esìstenti. 


Ha la possibilità di multitask e può essere inserito in 
reti di comunicazione. 

Grazie ai due mìtrodrive e al software incorporati. 
Sinclair QL, nella sua confezione originale, e già 
pronto per I uso: basta col lega rio ad un video. 

E pensare che tutta questa tecnologia pesa meno di 
due chili e trova spazio in una normale 24 ore 
Un computer cosi non poteva che essere Sinclair 


Tutti i prodotti Sinclair, 
distribuiti da GBC Divisione Rebit 
sono corredati da regolare 
certificato di garanzia italiana. 


uni 

Dì stritoli itone esclusiva GBC Divisione R^hit 





